Excel VBA实现：将每行最后三个单元格剪切粘贴至最后三列

我太懂这种手动处理错位数据的崩溃了——尤其是数据量一大，重复的剪切粘贴完全是浪费时间！你提到的Bruce Wayne的代码只能处理单个单元格，我把它修改了一下，现在可以一次性把每行最后三个错位的单元格移到对应的末尾列：

Sub MoveLastThreeCells()
    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Dim RowNum As Long
    Dim TargetColStart As Long
    
    ' 设置要处理的工作表，这里用当前激活的工作表，你也可以改成具体表名，比如Sheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 获取数据的最后一行
    LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一行（从第1行开始，如果你有表头可以改成从第2行）
    For RowNum = 1 To LastRow
        ' 获取当前行最后一个有数据的列
        LastCol = ws.Cells(RowNum, ws.Columns.Count).End(xlToLeft).Column
        
        ' 确保当前行至少有3个数据列，避免出错
        If LastCol >= 3 Then
            ' 目标起始列：最后一列的下一列，也就是把最后三个移到后面
            TargetColStart = LastCol + 1
            
            ' 复制最后三个单元格的内容到目标列
            ws.Cells(RowNum, LastCol - 2).Resize(1, 3).Copy ws.Cells(RowNum, TargetColStart)
            
            ' 清空原来的三个单元格内容（如果不需要保留可以删掉这行）
            ws.Cells(RowNum, LastCol - 2).Resize(1, 3).ClearContents
        End If
    Next RowNum
    
    MsgBox "操作完成！每行最后三个单元格已移至末尾列。", vbInformation
End Sub

使用步骤： #

• 打开你的Excel文件，选中包含错位数据的工作表
• 按下Alt + F11打开VBA编辑器
• 右键点击左侧的工作簿名称 → 选择「插入」→「模块」
• 把上面的代码粘贴到模块窗口中
• 回到Excel界面，按下Alt + F8，选择MoveLastThreeCells宏，点击「执行」

小提示： #

• 如果你的数据有表头，记得把代码里的For RowNum = 1 To LastRow改成For RowNum = 2 To LastRow，避免处理表头行
• 如果不需要保留原来错位的单元格内容，可以保留ClearContents那行；如果想保留，直接删除该行即可
• 运行前建议先备份你的Excel文件，防止数据意外丢失

内容的提问来源于stack exchange，提问作者Martin Hewitt Tayler