子匹配列()
将 I、K、Lr 调暗为整数
将 Wb1 调暗为工作簿
将 Wb2 调暗为工作簿
将 sh1 调暗为工作表,将 sh2 调暗为工作表
Set Wb1 = Workbooks("RBP Cloud Accounting - 详细账户交易报表254")
Set Wb2 = Workbooks("RBP Cloud Accounting - VAT Return")
Set sh1 = Wb1.Sheets("明细账户交易")
Set sh2 = Wb2.Sheets("Transactions by VAT Box")
Lr = sh1.Cells(Rows.Count, "A").End(xlUp).Row
For I = 6 To Lr
For K = 9 To 268
Wb1.Activate
sh1.Select
A = Range("C6:C" & I).Value
Wb2.Activate
sh2.Select
B = Range("A9:A" & K).Value
If A = B Then
Wb1.Activate
sh1.Select
Range("Q6:Q" & I).Value = Match
Else
Wb1.Activate
sh1.Select
Range("Q6:Q" & I).Value = Not Match
End If
Next K
Next I
结束子