-1

以下のコードは、結果を取得するために私が編集したものですが、残念ながら取得できませんでした。sheet1 Col A&B と sheet2 Col A&B を比較して、sheet3 の結果を比較しようとしています。親切なアドバイス。

Sub ReconcileRegisters()
Dim i    As Long, _
LRa  As Long, _
LRb  As Long, _
rowx As Long

LRa = Sheets("sheet1").Range("A1:B" & Rows.Count).End(xlUp).Row
LRb = Sheets("sheet2").Range("A1:B" & Rows.Count).End(xlUp).Row
rowx = 2
Application.ScreenUpdating = False
For i = 2 To LRa
    If IsError(Application.Match(Sheets("sheet1").Range("A1:B" & i).Value, Sheets("sheet2").Range("A1:B" & LRb), 0)) Then
        Sheets("sheet3").Range("A" & rowx).Value = Sheets("sheet1").Range("A1:B" & i).Value
        rowx = rowx + 1
    End If
Next i
For i = 2 To LRb
    If IsError(Application.Match(Sheets("sheet2").Range("A1:B" & i).Value, Sheets("sheet1").Range("A1:B" & LRa), 0)) Then
        Sheets("sheet3").Range("A" & rowx).Value = Range("A1:B" & i).Value
        rowx = rowx + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Matching process is complete"

サブ終了

4

1 に答える 1

0

Sheets("sheet2")両方のループを比較すると、この 2 番目のセクションで次のことが必要になると思います。

Sheets("sheet3").Range("A" & rowx).Value = Range("A1:B" & i).Value
于 2013-07-15T00:33:30.297 に答える