检查VBA中单元格内容的值

Question

我是使用VBA的新手，我想知道是否有可能。我在Excel中有两个工作簿，它们非常大。我试图做的是在工作簿一中引用特定列中的值（这些都是电话号码），并在工作簿二中找到匹配的值。那么当在工作簿中找到匹配值时，两个工作簿中的一个不同单元格的内容将复制并粘贴到工作簿两个单元格中。任何帮助将不胜感激。

Answer 1

是的，这是可能的。你可以做如下的事情：

Sub findAndPaste() 
Dim row1 as Range, wb1 as Workbook, wb2 as workbook, sh1 as Worksheet, sh2 as Worksheet 
Dim value1 as String, row2 as Range, value2 as String 
Set wb1 = Workbooks("Workbook1Name") 
Set wb2 = Workbooks("Workbook2Name") 
Set sh1 = wb1.sheets("SheetName") 
Set sh2 = wb2.sheets("SheetName") 
For each row1 in sh1.usedrange.rows 
    value1 = row1.cells(1).value 
    For each row2 in sh2.usedrange.rows 
     value2 = row2.cells(1).value 
     If value2 = value1 then 
      row2.copy row1 
      Exit For 
     End if 
     next 'row2 
    next 'row1 

End Sub 

Answer 2

如果问题是“这是否可能”，那么答案是肯定的。如果这是唯一的问题，这不是一个编程问题。