有没有更简单的方法来检查范围的Borders.ColorIndex？

Question

正如标题所示。我知道我可以遍历一定范围内的所有单元格以检查每个单元格边框的colorindex，尽管我想知道是否有任何更简单的方法可以完成相同的任务。

任何见识将不胜感激，非常感谢！

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