Есть ли более простой способ проверить Borders.ColorIndex диапазона?

Question

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

Любое понимание будет оценено, большое спасибо!

Answer 1

Одно из возможных решений:

Option Explicit

Sub test()

    Dim cell As Range, rng As Range

    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")

    For Each cell In rng
        Debug.Print cell.Borders.ColorIndex
    Next cell

End Sub