求助：修改Excel宏实现任意单元格向下7格合并并旋转文本

修改后的宏代码 #

Sub Merge7()
'
' Merge7 Macro - 从当前选中单元格向下选中7个单元格，合并并旋转文本
'
    Dim targetRange As Range
    ' 定义目标区域：当前选中单元格向下包含自身共8个单元格（当前+7个下方单元格）
    Set targetRange = ActiveCell.Resize(8, 1)
    
    With targetRange
        ' 清除原有合并并设置基础格式
        .MergeCells = False
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90 ' 直接设置旋转90度，无需先设0再改
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        ' 执行合并
        .Merge
    End With
    
    ' 设置字体格式
    With targetRange.Font
        .Name = "Calibri"
        .Size = 20
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    
    ' 选中目标区域下方第一个单元格，方便后续操作
    targetRange.Offset(8, 0).Select
End Sub

关键修改说明 #

• 适配任意起始位置：替换固定的Range("A10:A17")为ActiveCell.Resize(8, 1)，Resize(8,1)表示从当前激活单元格开始，向下覆盖8行（含自身），正好对应当前单元格+下方7个单元格的需求。
• 精简冗余步骤：删除原代码中先设置Orientation = 0再改为90的重复操作，直接设置为90度；合并操作通过.Merge直接完成，无需提前取消合并再调用Selection.Merge。
• 优化操作稳定性：使用targetRange变量直接操作目标区域，避免依赖Selection带来的误操作风险，代码逻辑更清晰。
• 动态定位后续单元格：用targetRange.Offset(8, 0)替代固定的Range("A18")，确保始终选中目标区域下方第一个单元格，适配任意起始位置。

内容的提问来源于stack exchange，提问作者hosanna mwaura