如何格式化合并单元格vba周围的边框

Question

所以我有一个合并的单元格,如下所示

以下是我在其周围放置边框的代码:

 Dim c As Range

 For Each c In testing  
      If c.MergeCells Then
           c.Interior.ColorIndex = 19
           c.Borders.LineStyle = xlContinuous
           c.Borders.Weight = xlThick
           c.Borders.Color = vbGreen
       End If
   Next

此代码仅在左上角单元格周围创建边框(参见图片).如何确保边框位于整个合并单元格周围？

Answer 1

您必须使用MergeArea引用范围.

Dim c As Range

For Each c In testing  
   If c.MergeCells Then
       With c.MergeArea
            .Interior.ColorIndex = 19
            .Borders.LineStyle = xlContinuous
            .Borders.Weight = xlThick
            .Borders.Color = vbGreen
       End With 
   End If
 Next