Вы просите выделить строки, но я предполагаю, что это может быть проблематично (хотя вы не описываете, почему вы этого хотите). Предполагая, что у вас есть 10 строк, и многие из них соответствуют другим строкам, ваш лист будет выглядеть
Проблема в том, что вы не представляете, какая строка соответствует какой строке!
У вас также будет проблема при следующем запуске сценария, выделение будет сохраняться.
Поэтому я предлагаю решение с дополнительным столбцом информации (снимок экрана ниже):
Sub WalkThePlank()
Dim startRow As Integer
startRow = 2 'Update this to lead us to the treasure
Dim row As Integer
row = startRow
Do While (Range("A" & row).Value <> "")
Dim innerRow As Integer
innerRow = row + 1
Dim name As String
Dim task As String
Dim phone As String
name = Range("A" & row).Value
task = Range("B" & row).Value
phone = Range("C" & row).Value
Do While (Range("A" & innerRow).Value <> "")
If (Range("A" & innerRow).Value = name And Range("B" & innerRow).Value = task And Range("C" & innerRow).Value = phone) Then
Range("D" & row).Value = Range("D" & row).Value & innerRow & ", "
Range("D" & innerRow).Value = Range("D" & innerRow).Value & row & ", "
'Rows(row).Interior.ColorIndex = 6 'UNCOMMENT THIS LINE IF YOU WANT HIGHLIGHTING
'Rows(innerRow).Interior.ColorIndex = 6 'UNCOMMENT THIS LINE IF YOU WANT HIGHLIGHTING
End If
innerRow = innerRow + 1
Loop
row = row + 1
Loop
End Sub
Это то, что он делает
Сделайте это с копией вашего файла - функция отмены отсутствует!
Обратите внимание, что в коде есть две строки, показывающие, какую строку нужно раскомментировать (удалите первую '
на этих строках, и они будут выделены)
Как добавить VBA в MS Office?