Создать границы вокруг каждой серии дубликатов на моем листе

Question

У меня невероятно большой лист с необходимыми группами повторяющихся элементов в столбце.

Чтобы было легче читать, я хочу поставить рамки вокруг каждой серии дубликатов. Скажем, от А1 до А5, все говорят Банан, я хочу ограничить это.

Я могу идентифицировать дубликаты и граничить с ними, но я теряюсь, когда пытаюсь идентифицировать сначала дубликат, затем последний дубликат и ограничить всю группу.

Answer 1

Попробуйте этот код

Sub Test()
Dim r As Long, m As Long
m = 1
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(r, 1).Value <> Cells(r + 1, 1).Value Then Range("A" & m & ":A" & r).BorderAround , xlMedium: m = r + 1
Next r
End Sub

Answer 2

В качестве примера кода приведен синтаксис для одновременного применения границы к диапазону ячеек с использованием метода Range.BoarderAround :

Sub ApplyBoarderToRangeTest()

Dim TargetRange As Range
Set TargetRange = ThisWorkbook.Sheets("Sheet1").Range("C2:C10")

TargetRange.BorderAround xlContinuous, xlMedium     'xlContinuous = 1, xlMedium = -4138 for late binding

'Now cells C2 to C10 have a medium weight continuous boarder around them.

End Sub