[已解决]紧急求助各位老师，怎样才可以实现？

huangjinyui

当B列单元格与C列单元格的内容不同时，在B列用红色标记出来，用VBA该怎样才可以?谢谢！

最佳答案

月排行榜 / 总排行榜

过江龙

2012-4-10 11:14

Sub biaoji()
   For i = 2 To Range("B65536").End(xlUp).Row
        If Cells(i, 2) <> Cells(i, 3) Then
        Cells(i, 2).Interior.ColorIndex = 3
        End If
    Next i
   
End Sub

跳转到最佳答案楼层

那么的帅

用条件格式就行，不必用VBA

过江龙

Sub biaoji()
   For i = 2 To Range("B65536").End(xlUp).Row
        If Cells(i, 2) <> Cells(i, 3) Then
        Cells(i, 2).Interior.ColorIndex = 3
        End If
    Next i
   
End Sub

huangjinyui

那么的帅 发表于 2012-4-10 11:07
用条件格式就行，不必用VBA

怎样用格式可以？

tianti

1. Sub biaoji()
   
2.     Dim i As Integer
   
3.     Dim j As Integer
   
4.     Range("B2:B65535").Interior.ColorIndex = xlNone
   
5.     For i = 2 To Cells(65535, 3).End(xlUp).Row
   
6.         If Cells(i, 2) <> Cells(i, 3) Then
   
7.            j = j + 1
   
8.            Cells(i, 2).Interior.ColorIndex = 3
   
9.         End If
   
10.     Next
    
11.     MsgBox "共有" & Cells(65535, 3).End(xlUp).Row - 1 & "条记录，其中" & j & "条记录不符"
    
12. End Sub

复制代码

看看是不是你想要的结果