循环通过合并的单元格和边框“向下”

Question

这些是我合并的单元格

我想遍历这些合并的单元格，找到每个合并单元格的结尾，然后 在左侧用点（xlDots）进行边框直到 ROW6

这将是我的输出

这是我到目前为止所尝试的

Dim rng As Range

Set rng = Range("A1:I6")

With rng.Borders
    .LineStyle = xlDot
    .Weight = xlThin
End With

但它与我的每个单元格相邻，我可以在 for 循环中给出 STEP 2 吗？

Answer 1

作为替代方案，您不需要 VBA。您可以使用条件格式：

规则：

=AND(A$3<>"",B$3="",C$3="")

适用于范围：

=$C$4:$I$6

当然，只需根据需要选择格式。

Answer 2

我的建议是基于here的一个技巧

Sub Test()

Dim rng As Range, cl As Range
With Sheet1 'Change appropriately
    Set rng = Intersect(.Cells.SpecialCells(2), .Cells.SpecialCells(4))
    For Each cl In rng
        If cl.MergeArea.Row = 3 Then
            cl.MergeArea.Offset(1).Resize(3, cl.MergeArea.Columns.Count).Borders(xlEdgeLeft).LineStyle = xlDot
        End If
    Next cl
End With

End Sub

• .Intersect 通过使用.SpecialCells 从属于合并区域的所有单元格中创建一个范围。我使用了constants and blanks 的组合（分别为索引 2 和 4），但如果您的值是公式的结果，您可以将其更改为 -4123 和 4。

• 我确保这些单元格是从第 3 行开始的 .MergeArea 的一部分。

• 然后只需 .Offset 1 行和 .Resize 到第 6 行的范围对象和合并区域的实际宽度（使用 Columns.Count），因为您可能无法 100% 确定宽度这些合并区域的列数。

• 您可以将xlEdgeLeft 边框的线型设置为xlDot。

---

显然，如果您的合并单元格范围仅涉及 A-I 列，它会变得更加简单，而从这个意义上说，此解决方案更具动态性。

Answer 3

这是@JvdV 答案的变体。

For Each cel In ThisWorkbook.Sheets("Sheet1").Range("A3:M3") 'change sheet as needed
    If cel.MergeCells = True Then
        With cel.MergeArea.Offset(1).Resize(3).Borders(xlEdgeLeft)
            .LineStyle = xlDash
        End With
    End If
Next cel