Excel技术问询：删除棒球队阵容行内容并上移后续行

无需宏的快速操作（适合偶尔修改） #

• 直接删除整行：选中目标行的行号（比如行号4），右键选择「删除」，Excel会自动将下方所有行上移，完全保留原有格式，比手动清空再上移高效得多。
• 先清空再上移（特殊需求场景）：选中目标行的内容范围（如A4:K4）按Delete清空，接着选中下方需要上移的所有行（从第5行到最后一行），鼠标移到选中区域的边框上（变为十字箭头），按住左键拖至目标行位置松开，格式可完整保留。

用宏实现一键操作（适合频繁修改） #

如果需要经常调整阵容，宏能帮你一键完成操作：

1. 按Alt + F11打开VBA编辑器
2. 右键当前工作簿 → 「插入」→「模块」
3. 粘贴以下基础版代码（固定删除指定行）：

Sub DeleteAndShiftUp()
    Dim targetRow As Integer
    targetRow = 4 ' 修改为你需要处理的行号
    
    ' 清空目标行指定列内容
    Range("A" & targetRow & ":K" & targetRow).ClearContents
    ' 将下方行上移
    Range("A" & targetRow + 1 & ":K" & Cells(Rows.Count, "A").End(xlUp).Row).Cut
    Range("A" & targetRow).Insert Shift:=xlDown
End Sub

4. 保存工作簿为「启用宏的工作簿（.xlsm）」格式
5. 运行时按Alt + F8，选择DeleteAndShiftUp即可

进阶版（支持手动选择目标行，更灵活）：

Sub DeleteAndShiftUp_SelectRow()
    Dim targetRow As Integer
    targetRow = Selection.Row ' 获取选中单元格所在行
    
    If targetRow >= Cells(Rows.Count, "A").End(xlUp).Row Then
        MsgBox "这是最后一行，无需上移"
        Exit Sub
    End If
    
    Range("A" & targetRow & ":K" & targetRow).ClearContents
    Range("A" & targetRow + 1 & ":K" & Cells(Rows.Count, "A").End(xlUp).Row).Cut
    Range("A" & targetRow).Insert Shift:=xlDown
End Sub

使用时只需选中目标行内任意单元格，运行宏即可自动处理。

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