Question

我是VBA的新手，我希望通过寻求答案的解释，我不会要求太多。

我想根据每行3个不同的列在我的activeworksheet中查找重复项。然后我想突出显示EntireRow（仅用过的单元格）任何颜色。

我需要在第一行存储3个不同的单元格，然后循环遍历每个使用的行并将其与3个下一个相对单元格进行比较

到目前为止，我已经把一些其他人的好代码用于循环，但我不知道如何正确地做我想要的。

Sub CompareHighlightDupRows()
Dim oRow As Range, rng As Range
Dim myRows As Range
With Sheets("Sheet3")
    Set myRows = Intersect(.Range("A:A").EntireRow, .UsedRange)
    If myRows Is Nothing Then Exit Sub
End With
For Each oRow In myRows.Columns(1).Cells

Next


End Sub

非常感谢你

Answer 1

我使用更简单的方法找到了答案做RowCount＆lt;＆gt; lastROW + 1

Do While RowCount <> lastROW + 1

RowCount = RowCount + 1
Loop

RowCount = RowCount + 1
Loop

将使用带有字符串连接的单元格（rowcounter，columncounter）进行比较，并使用wholerow.used范围来突出显示内部颜色

VBA - 对于每一行 - 比较基于特定列的重复项

1 个答案: