Question

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

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

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

检查VBA中的单元格内容的值

2 个答案: