Question

EXCEL VBA 的问题？

表格中,我想判断,B1和D1:J1这8个单元格之间是否有重复的数据,如果有,就在重复的2个上面显示红色.有多行的数据需要判断,列数有可能会增加,但是C列肯定是不参与判断的.就是隔着一个C列.请问一下这个代码应该怎么写啊?

Answer 1

代码在下面这个地方写就可以，但是有了这个功能后，保存会卡得很惨，特殊是数据较大的时候，因为检测单元格的格式只有一个一个的扫描，这样非常耗时。

写好代码之后，保存时执行效果如下：

——跳到有填充颜色的单元格，提示不允许保存，然后返回。

代码位置如下图，千万注意位置的重要性：

代码文本为：

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim st As Worksheet, rng As Range

    For Each st In Sheets

        If st.Name = "电1" Or st.Name = "电2" Or st.Name = "电3" Then

            For Each rng In st.UsedRange.Cells

                If rng.Interior.Color <> 16777215 Then

                    Application.Goto rng

                    MsgBox "这个单元格有填充颜色，不允许保存"

                    Cancel = True

                    Exit Sub

                End If

            Next rng

        End If

    Next st

End Sub

Answer 2

使用条件格式，先选中区域，比如D1:J7，如图，开始，条件格式，新建格式规则，使用公式确定……,输入：=D1=$B1，格式，填充，红色，确定，就可以了。这样每一行的D列到J列中，只要有和该行B列相同的数字，就会加上红色底色，有什么不明白了再问我。

Answer 3

那个2？D:J的，有和b相同的填充红色？
Sub AA()
Columns("d:j").Interior.Color = xlNone
Dim i, k
For i = 1 To Range("b65536").End(xlUp).Row
For k = 4 To 10
If Cells(i, "b") = Cells(i, k) Then
Cells(i, k).Interior.Color = 255
End If
Next
Next
End Sub

追问

辛苦老师,不光是D:J对比B,如果D:J之间有相同的也需要变红.

追答

Sub AA()
Columns("d:j").Interior.Color = xlNone
Dim i, k
For i = 1 To Range("b65536").End(xlUp).Row
For k = 4 To 10
x = WorksheetFunction.CountIf(Range(Cells(i, "D"), Cells(i, "j")), Cells(i, k))
If Cells(i, "b") = Cells(i, k) Or x > 1 Then
Cells(i, k).Interior.Color = 255
End If
Next
Next

End Sub

Answer 4

你要找一行数据中有几个2就这样写的
=COUNTIF(B1:J1,"2")

Answer 5

循环，在目标区域单元格依次识别指定单元格是否相同