账户清单进行数据检查

yl1991

说明:       
第一张表"ERP"是ERP的银行账户清单,从2011_010到2011_059       
第二张表"Bank"是银行里的银行账户清单,从2011_011到2011_058       
都是文字型格式       
       
       
通过VBA实现在ERP与Bank这两张表之间对银行账户清单进行数据检查,看是否一致,       
若ERP中没有Bank表中数据MsgBox则显示不一致的数据并添加写到a列       
       
现在的问题是：1.明明ERP中末位数如“2011_059”本来就存在而且Bank中没有此数据MsgBox会报此数据不存在,       
        如果数据只有20条左右则没问题。
        2.若ERP中数据只是一条则运行出错
       
        请老师看看如何解决，谢谢！

老骥705664849

比对的问题最好是用字典，但是，看你的说明文字，不明白你是需要什么？
是需要erp中没有而bank中有的数据吗？？

老骥705664849

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheets("ERP").Range("a1:a" & Sheets("ERP").Cells(Rows.Count, 1).End(xlUp).Row)
br = Sheets("Bank").Range("b1:b" & Sheets("Bank").Cells(Rows.Count, 2).End(xlUp).Row) '''
Dim arr()
ReDim arr(1 To UBound(ar), 1 To 1)
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(ar(i, 1)) = ""
    End If
Next
For i = 2 To UBound(br)
    If Trim(br(i, 1)) <> "" Then
        If Not d.exists(Trim(br(i, 1))) Then
            n = n + 1
            arr(n, 1) = br(i, 1)
        End If
    End If
Next i
If n = "" Then
    MsgBox "没有不一致的数据！": Exit Sub
Else
    Sheets("Bank").[a1].Resize(n, 1) = arr
     MsgBox "ERP中无“" & n & "”，已经添加，数据已写到a列"
End If
Set d = Nothing
        
End Sub

老骥705664849

先把bank中的数据赋值给字典，然后再来判断即可

yl1991

老骥705664849 发表于 2020-6-30 09:05
先把bank中的数据赋值给字典，然后再来判断即可

谢谢老师
测试了一下
当在ERP中清除几个数据后，MsgBox只是报ERP没有数据的个数，原代码是可以罗列没有的具体数据的，这个怎么修改呀？

老骥705664849

yl1991 发表于 2020-6-30 09:53
谢谢老师
测试了一下
当在ERP中清除几个数据后，MsgBox只是报ERP没有数据的个数，原代码是可以罗列没有 ...

不明白你在说什么

yl1991

老骥705664849 发表于 2020-6-30 10:21
不明白你在说什么

原代码MsgBox可以罗列显示ERP中没有Bank表中具体清单数据，如“2011_010、2011_011”修改后的只显示没有的清单个数
还有就是修改后这些不一致的数据如果是多个并添加写到a列，运行一次代码只能添加一个数据，原代码运行一次是全部添加，这个怎么改？

老骥705664849

yl1991 发表于 2020-6-30 11:04
原代码MsgBox可以罗列显示ERP中没有Bank表中具体清单数据，如“2011_010、2011_011”修改后的只显示没有 ...

自己琢磨一下这句代码，弄明白这句代码就知道你说的情况究竟存不存在了

yl1991

老骥705664849 发表于 2020-6-30 11:39
自己琢磨一下这句代码，弄明白这句代码就知道你说的情况究竟存不存在了

自己是初学者，搞不懂，我说的只是实际运行情况，老师再看看嘛。
其实MsgBox显示是次要的，关键是多个不一致数据不能一次添加。