请求编写Excel宏：指定行跨列剪切粘贴数据

嘿，完全懂你的需求，这就给你写一个简单易用的宏，不用你自己折腾代码～

这个宏的核心功能是：

• 弹出对话框让你输入要操作的行号（仅限5-23行）
• 自动把该行的H、K、N、Q、T列的值剪切到对应的W、Z、AC、AF、AI列（完美对应你说的“W、Z等”目标列）
• 带基础错误判断，避免输入无效行号导致出错

直接把下面的代码复制到你的Excel VBA模块里就行：

Sub CutPasteSpecifiedRow()
    Dim targetRow As Integer
    Dim sourceCols As Variant
    Dim targetCols As Variant
    Dim i As Integer
    
    ' 定义源列和对应的目标列（按顺序一一对应）
    sourceCols = Array("H", "K", "N", "Q", "T")
    targetCols = Array("W", "Z", "AC", "AF", "AI")
    
    ' 让用户输入要操作的行号
    On Error Resume Next
    targetRow = InputBox("请输入要操作的行号（范围：5-23）", "输入行号", 6)
    On Error GoTo 0
    
    ' 判断行号是否有效
    If targetRow < 5 Or targetRow > 23 Then
        MsgBox "行号必须在5到23之间，请重新输入！", vbExclamation
        Exit Sub
    End If
    
    ' 循环处理每一组列的剪切粘贴
    For i = LBound(sourceCols) To UBound(sourceCols)
        ' 剪切源列数据
        Columns(sourceCols(i)).Rows(targetRow).Cut
        ' 粘贴到目标列（保留值和格式）
        Columns(targetCols(i)).Rows(targetRow).PasteSpecial xlPasteValuesAndNumberFormats
    Next i
    
    ' 清除剪切板，避免后续误操作
    Application.CutCopyMode = False
    
    MsgBox "操作完成！已将第" & targetRow & "行的指定列数据剪切到目标列。", vbInformation
End Sub

怎么使用这个宏： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里，右键点击你的工作簿名称 → 插入 → 模块
3. 把上面的代码粘贴到右侧的代码窗口里
4. 回到Excel界面，按下Alt + F8，选择CutPasteSpecifiedRow这个宏，点击「执行」
5. 在弹出的对话框里输入你要操作的行号（比如6或15），点击确定就搞定啦！

小提示： #

• 如果之后需要调整源列或目标列，只要修改代码里sourceCols和targetCols这两个数组里的列名就行，保证顺序对应上就好
• 宏执行的是剪切操作，所以源列的内容会被清空，目标列的原有内容会被覆盖，操作前记得确认数据安全哦

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