Это простой вопрос, на который я не могу ответить.
У меня есть два столбца, подобные этим в Excel:
Col1 Col2
A C
B I
C E
D D
E A
F F
G B
H
I
Я хочу отсортировать два столбца, чтобы одинаковые значения были выровнены по тем же строкам в двух столбцах, например:
Col1 Col2
A A
B B
C C
D D
E E
F F
G
H
I I
K
До сих пор я пробовал следующий код VBA
:
Sub HighlightDups()
Dim i, LastRowA, LastRowB
LastRowA = Range("A" & Rows.Count).End(xlUp).Row
LastRowB = Range("B" & Rows.Count).End(xlUp).Row
Columns("A:A").Interior.ColorIndex = xlNone
Columns("B:B").Interior.ColorIndex = xlNone
For i = 1 To LastRowA
If Application.CountIf(Range("B:B"), Cells(i, "A")) > 0 Then
Cells(i, "A").Interior.ColorIndex = 36
End If
Next
For i = 1 To LastRowB
If Application.CountIf(Range("A:A"), Cells(i, "B")) > 0 Then
Cells(i, "B").Interior.ColorIndex = 36
End If
Next
End Sub
Но этот код просто помогает найти дубликаты и не может поместить дубликаты в одни и те же строки в двух столбцах.
Интересно, можете ли вы, ребята, немного помочь?
Большое спасибо.