excel vba数据比较？

Posted 2023-03-18

如图，sheet1和sheet2中分别有两列数据，需要把sheet1中第一列的每个数据去sheet2中第1列中查找，找到相同的数据时，比较对应的第2列数据，第二列数据不同时在sheet1第3列中注明。

申明，我也才只学了几天，仅供参考- -所学不多，所以代码写的丑陋，练练手而已

在sheet1中插入代码：

---

Sub ZBT()

Dim i%, j%

    [c:c].Clear

For i = 2 To Range("a99999").End(3).Row

    j = Application.WorksheetFunction.CountIf(Worksheets("sheet2").[a:a], Cells(i, 1))

    If j = 0 Then

        Cells(i, 3) = "查无此序号"

    ElseIf j > 1 Then

        Cells(i, 3) = "有多项结果"

    ElseIf Cells(i, 2) <> Application.WorksheetFunction.VLookup(Cells(i, 1), Worksheets("sheet2").[a:b], 2, 0) Then

        Cells(i, 3) = "不同"

    End If

Next i

End Sub

参考技术A 一个公式就解决了，用不着Vba吧。c2=if(isblank(a2),"",iferror(if(vlookup(a2,sheet2!a:b,2,0)=b2,"","不相同"),"没得记录"))，公式下拉自动填充即可。追问

感谢回复，数据比较多，想要学习学习vba能不能快速处理