嗨，我来帮你搞定这个Excel宏的需求！刚好之前也处理过类似的场景，给你写了一段实用的代码，还加了容错处理，避免踩坑。

实现思路 #

核心逻辑就是三步：

• 定位源工作表中要转移的目标行
• 把该行数据复制到目标工作表的最后一行（自动找位置，不会覆盖已有数据）
• 删除源工作表中的原行

完整VBA宏代码 #

Sub MoveRowToAnotherSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRow As Integer
    Dim targetLastRow As Integer
    
    ' 👇 请根据你的实际工作表名称修改这里！比如你的源表叫"销售数据"，目标表叫"已处理数据"
    Set sourceSheet = ThisWorkbook.Worksheets("数据源")
    Set targetSheet = ThisWorkbook.Worksheets("目标表")
    
    ' 这里以你举例的第2行（A2:F2）为例，如果你想转移**选中的行**，把下面这行改成：sourceRow = ActiveCell.Row
    sourceRow = 2
    
    ' 先检查源行有没有数据，避免转移空行
    If WorksheetFunction.CountA(sourceSheet.Rows(sourceRow)) = 0 Then
        MsgBox "要转移的行是空的，跳过操作！", vbExclamation
        Exit Sub
    End If
    
    ' 找到目标表的最后一行（自动定位到下一个空行，不会覆盖已有数据）
    targetLastRow = targetSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    ' 复制源行A-F列的数据到目标表，这里选的是粘贴值和数字格式，想保留原格式就改成xlPasteAll
    sourceSheet.Range("A" & sourceRow & ":F" & sourceRow).Copy
    targetSheet.Range("A" & targetLastRow).PasteSpecial xlPasteValuesAndNumberFormats
    
    ' 清除剪切板，防止后续误粘贴
    Application.CutCopyMode = False
    
    ' 删除源工作表的目标行，下面的行会自动上移
    sourceSheet.Rows(sourceRow).Delete Shift:=xlUp
    
    MsgBox "行数据已成功转移并删除原行！", vbInformation
End Sub

使用说明 #

1. 打开你的Excel工作簿，按下Alt + F11打开VBA编辑器；
2. 在左侧的项目窗口里，右键你的工作簿名称→选择「插入」→「模块」；
3. 把上面的代码粘贴到新模块里，记得修改代码开头的工作表名称；
4. 如果想实现“选中哪行就转移哪行”，把sourceRow = 2改成sourceRow = ActiveCell.Row就行；
5. 回到Excel界面，点击「开发工具」→「宏」，选择MoveRowToAnotherSheet运行即可。

小提示 #

• 如果你的数据范围不是A-F列，只需要修改代码里的Range("A" & sourceRow & ":F" & sourceRow)部分，比如改成Range("B" & sourceRow & ":G" & sourceRow)；
• 要是担心误操作，可以先备份你的工作簿再测试宏哦！

备注：内容来源于stack exchange，提问作者Devin