Excel VBA 如何为指定区域非空单元格及其下方相邻空单元格添加边框

实现代码（已适配需求） #

修改后的逻辑会在原非空单元格加边框的基础上，自动将非空单元格下方的空单元格也纳入边框绘制范围：

Set iRange = ea.Range(Cells(2, 1), Cells(EAlastrow, EAlastcol))
' 定义需要向下拓展的空单元格行数，1代表仅下方1行，可按需修改
Const EXTEND_ROWS As Integer = 1
For Each iCells In iRange
    ' 跳过合并单元格的非左上角子单元，避免重复执行逻辑
    If iCells.Row = iCells.MergeArea.Cells(1, 1).Row And iCells.Column = iCells.MergeArea.Cells(1, 1).Column Then
        If Not IsEmpty(iCells) Then
            ' 先给原非空区域加边框
            Dim mergeRng As Range
            Set mergeRng = iCells.MergeArea
            mergeRng.BorderAround xlContinuous, xlThin
            
            ' 处理下方空单元格区域
            Dim extendRng As Range
            Set extendRng = mergeRng.Offset(1).Resize(EXTEND_ROWS, mergeRng.Columns.Count)
            ' 确保拓展范围不超出表格最大行边界
            If extendRng.Row + extendRng.Rows.Count - 1 <= EAlastrow Then
                ' 仅当拓展区域为空时加边框，不需要可删除该判断
                If WorksheetFunction.CountA(extendRng) = 0 Then
                    extendRng.BorderAround xlContinuous, xlThin
                End If
            End If
        End If
    End If
Next iCells

自定义调整说明 #

• 如果需要给非空单元格下方多行空单元格加边框，修改常量EXTEND_ROWS的数值即可，例如填3就是向下拓展3行
• 如果不需要判断拓展区域是否为空，强制给对应位置加边框，删除If WorksheetFunction.CountA(extendRng) = 0 Then的判断逻辑即可
• 你提到的表格结构参考如下：
  

内容的提问来源于stack exchange，提问作者Jinay Jani