网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,144贴子：1,166,098
  • 4回复贴，共1页

vb如何比较excel两列不重复数据

用公式是可以，但我要用VB或VBA操作，谢谢！
下面的代码有点问题，如果A列和B列的相同数据不在同一行，最后的结果重复的数据也会显示红色，我要的结果是不管两列重复或不重复的数据是否在同一行，请将不重复的数据在A或B列显示为红色。请参考图片.请知道的朋友帮忙修改，谢谢！
...
Dim cc
For cc = 2 To NewDataBook.Sheets(1).UsedRange.Rows.Count
If NewDataBook.Sheets(1).Cells(cc, 1) <> NewDataBook.Sheets(1).Cells(cc, 2) Then
NewDataBook.Sheets(1).Cells(cc, 1).Font.Color = vbRed
NewDataBook.Sheets(1).Cells(cc, 2).Font.Color = vbRed
End If
Next


没人来回答~~~


2025-05-21 01:54:19
广告
自己已经搞定！呵呵~


你教下我啊··高手！


Private Sub CommandButton2_Click()
Dim d(1 To 2) As Object, arr, ib&, j&, mb&, n&
arr = Sheets(1).Range("B1").CurrentRegion
For j = 1 To 2
Set d(j) = CreateObject("scripting.dictionary")
For ib = 2 To UBound(arr)
d(j)(arr(ib, j)) = ""
Next
Next
For j = 1 To 2
n = j Mod 2 + 1
For ib = 2 To UBound(arr)
If Not d(n).Exists(arr(ib, j)) Then
mb = mb + 1
If mb = 1 Then Set ccx = Sheets(1).Cells(ib, j) Else Set ccx = Union(ccx, Sheets(1).Cells(ib, j))
End If
Next
Next
'Sheets(1).Range("B1").CurrentRegion.Interior.ColorIndex = xlNone
If mb Then ccx.Font.ColorIndex = 3
End Sub
你可以参考下这里：http://club.excelhome.net/thread-843443-1-1.html


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 4回复贴，共1页
分享到: