将Excel Sheet1中的值与Sheet2中的值进行比较

Question

我有一个Excel电子表格，其中有2个工作表。在A列的第一张工作表中，我有一个商店名称。第二个工作表是工作表1的一个子集，并且还有存储名称，但是它们位于工作表2的B列中。我需要将工作表1中的每个存储名称（列A）与工作表中的每个存储名称（列B）进行比较2并提取2相交的位置（具有相同的商店名称）。到目前为止，我已经在用VB做下面这样的：

Sub RunMe() 
Dim lRow, x As Long 

Sheets("Sheet1").Select 
lRow = Range("A2").End(xlDown).Row 

For Each cell In Range("B2:B" & lRow) 
    x = 2 
    Do 
     If cell.Value = Sheets("Sheet1").Cells(x, "A").Value Then 
      cell.EntireRow.Copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
     End If 
     x = x + 1 
    Loop Until IsEmpty(Sheets("Sheet1").Cells(x, "A")) 
Next 

End Sub 

如何修改上面的代码比较各店铺名称（栏）工作表1到工作表2的每家商店名称（B列） ？

Answer 1

试试这个

Sub RunMe() 
    Dim cell1 As Range, cell2 As Range 
    Dim rng1 As Range, rng2 As Range 

    Set rng1 = GetRange("Sheet1",1) 
    Set rng2 = GetRange("Sheet2",2) 

    For Each cell2 In rng2 
     For Each cell1 In rng1 
      If cell1.Value = cell2.Value Then 
       cell2.EntireRow.Copy Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
      End If 
     Next 
    Next 
End Sub 

Function GetRange(shtName As String, colIndex as Long) As Range 
    With Worksheets(shtName) 
     Set GetRange = .Range(.Cells(2, colIndex), .Cells(.Rows.Count, colIndex).End(xlUp)) 
    End With 
End Function