如何在VBA中为多个区域添加边框？

Sub AddBordersToRanges()
    Dim rng1 As Range, rng2 As Range, rng3 As Range
    
    ' 定义要添加边框的区域
    Set rng1 = Range("A1:C5")
    Set rng2 = Range("E1:G5")
    Set rng3 = Range("A7:G7")
    
    ' 为每个区域添加边框
    With rng1.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = RGB(0, 0, 0) ' 黑色
    End With
    
    With rng2.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = RGB(0, 0, 0) ' 黑色
    End With
    
    With rng3.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = RGB(0, 0, 0) ' 黑色
    End With
End Sub