我想要实现的是根据某些标准将数据从 WS1 复制到 WS3。
我有 2 个工作表:
WS1 = RAW DATA
WS2 = ATLAS DATA
在两者的 A 列中都有唯一标识符。我想做的是创建WS3=Reconciliation
. 然后根据 WS1 在 WS2 中查找值。在找到匹配项的地方,我想将行从 WS1 复制到 WS3,我已经对一些代码进行了逆向工程并在下面提出了一个
Sub CopyAndPaste()
Dim x As String, CpyRng As Range
Dim mFIND As Range, mFIRST As Range
With Sheets("RAW DATA")
Range("A:A").Select
On Error Resume Next
End With
With Sheets("ATLAS DATA")
Set mFIND = .Range("A:A").Find(x, LookIn:=xlValues, LookAt:=xlWhole)
If Not mFIND Is Nothing Then
Set CpyRng = mFIND
Set mFIRST = mFIND
Do
Set CpyRng = Union(CpyRng, mFIND)
Set mFIND = .Range("A:A").FindNext(mFIND)
Loop Until mFIND.Address = mFIRST.Address
CpyRng.EntireRow.Copy Sheets("Rec").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
End With
End Sub