0

子匹配列()

将 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

结束子

4

0 回答 0