Excel表格簿多个sheet存在相同项目数据，利用vba进行稽核校验

zuocloud

Excel表格簿多个sheet存在相同项目数据，由于数据项目相同的比较多，输入容易出错，不易发现，向大神求教，利用vba进行稽核校验，对应相同数据而实际不同数据，进行输出提醒，以便于提高效率，如果能实现校验规则根据实际需求动态增加减少，那就更好了。

zuocloud

有人帮忙吗

lcluck2002

你说的附件呢？

zuocloud

lcluck2002 发表于 2022-11-18 22:27
你说的附件呢？

附件已上传

shiruiqiang

2张表没啥对比性，建议多表模拟

zuocloud

Sub 校验()
    Dim i%, j%, brr(), n%, m%, k%
    Sheets("校验报告").Range("A:A").Clear
    i = Sheets("成绩").Range("A1").End(xlDown).Row
    j = Sheets("成绩").Range("A1").End(xlToRight).Column
    ReDim brr(1 To i * j)
    For m = 2 To i
        For n = 6 To j
            If Sheets("成绩").Cells(m, n) < 0 Or Sheets("成绩").Cells(m, n) > 150 Then
                k = k + 1
                brr(k) = Sheets("成绩").Cells(m, n).Address(0, 0) & "数据录入有误！"
            End If
        Next
    Next
    Sheets("校验报告").Range("A1").Resize(k, 1) = Application.Transpose(brr)
End Sub

zuocloud

上面是举例（代码是由附件强行修改的，不准确），列了一种情形 （” N201表4栏=N501表26栏-N501表25栏+N507表17栏”），来核对数据，不符合的话，输出校验规则；
实际是工作簿中所有sheet校验有很多种情形，希望能帮我编写vba，受到”数据校验练习“这个示例的启发，什么case、while、loop不会用，工作簿格式是固定的，需要校验的单元格也是固定的
请大神编写3个情形的校验代码,谢谢