比较单元格，然后根据值

Question

我需要比较同一工作簿中不同工作表上的两个范围。

第1页

第2页

如果它们相同，则将值从工作表1复制到工作表2，在比较值的右边五个单元格中。

Sub compare_paste()

    Dim cell, cell2, revenue As Range.Value
    Dim wbk As Workbook
    Dim sheet1, sheet2 As Worksheet
    Dim temp, lastName As String

    Set wbk = ThisWorkbook

    Set sheet1 = wbk.Sheets("Sheet1")
    Set sheet2 = wbk.Sheets("Sheet2")

    For Each cell In sheet1.Range("a1:a" & Range("a1").End(xlDown).Row)
        lastName = cell.Value
        Set revenue = cell.Offset(0, 7)
        For Each cell2 In sheet2.Range("a:a" & Range("a").End(xlDown).Row)
            If lastName = cell2.Range Then
                revenue.Value = cell2.Offset(0, 7).Value
            End If
        Next cell2

    Next cell

End Sub

Answer 1

我相信这就是你要的。可以通过其他方式完成此操作，但我只是在了解您的方法。

请注意我们声明变量之间的重要区别。另外，您的第二个范围设置不正确。最后，已对其进行更新，以确定范围底部而不是顶部的最后一行。

-type d