Question

XLS如何使用VB代码对比工作表中的A\B两列数据的不同并且有提示功能 求高手指教！！！

XLS如何使用VB代码对比工作表中的A\B两列数据的不同并且有提示功能
求高手指教！！！

Answer 1

不用这么复杂，用 if 函数即可，如比较 A1，B1 单元格数据是否相同，可在 C1等单元格输入：
=IF(A1 = B1, "相同", "不相同")

追问

不是这个意思·· 我需要的是 A列所有的数据与B列所有的数据进行对比；；我知道用公式可以实现，但公式比较麻烦，而且每个单元格都需要公式才行·····

所以 还是请求VB代码 能实现最好不过·····

追答

'此过程放在需要处理的工作表的类模块中（在 VBA 编辑器）
'如果在其他模块中，在下面 Cells 方法前加上需要处理的工作表的名称限定符：如 Sheet1.Cells(i, 1)
Public Sub A()
Dim i As Integer, k As Integer, s As String
i = 1 '假设数据从第一行开始，如果是其他行，在这里改变数据
s = "第 "
k = 0 '累计数据不同的行数
Do
If Cells(i, 1) = "" Then Exit Do
If Cells(i, 1) Cells(i, 2) Then
s = s & i & "、"
k = k + 1
End If
i = i + 1
Loop
If k > 0 Then '字符 s 的最后多了一个“、”
s = Left(s, Len(s) - 1)
s = s & " 行（共 " & k & " 行）数据不同。"
Else
s = "恭喜！数据全部正确！"
End If

'将结果显示出来
Cells(1, 3) = s '显示在某单元格
'MsgBox (s) '或者弹出对话框显示

End Sub