如何编写Excel宏：当B列出现Right时复制上一行D/E/F列数据

Hi Carl, 我来帮你搞定这个宏的需求。下面是完整的VBA代码和使用说明，你可以直接套用：

首先，打开你的Excel文件，按 Alt + F11 打开VBA编辑器，右键点击左侧的工作簿名称，选择「插入」→「模块」，然后把下面的代码粘贴进去：

Sub CopyPrevRowForRight()
    Dim ws As Worksheet
    Dim lastRow As Integer
    Dim i As Integer
    
    ' 设置要操作的工作表，这里假设是当前激活的工作表，你也可以改成具体表名比如Sheet1
    Set ws = ActiveSheet
    lastRow = 750 ' 你指定的总行数
    
    ' 关闭屏幕更新，加快宏运行速度
    Application.ScreenUpdating = False
    
    ' 从最后一行往上遍历，避免插入单元格后行号错乱
    For i = lastRow To 2 Step -1
        ' 检查B列当前行是否为"Right"，Trim去除前后空格避免匹配失败
        If Trim(ws.Cells(i, "B").Value) = "Right" Then
            ' 在D-F列插入空白单元格，原有内容向右偏移
            ws.Range(ws.Cells(i, "D"), ws.Cells(i, "F")).Insert Shift:=xlShiftToRight
            
            ' 复制上一行的D-F列内容到当前行的D-F列
            ws.Range(ws.Cells(i - 1, "D"), ws.Cells(i - 1, "F")).Copy _
                Destination:=ws.Range(ws.Cells(i, "D"), ws.Cells(i, "F"))
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "宏执行完成！", vbInformation
End Sub

• 从下往上遍历：这是核心细节，如果从上到下处理，插入单元格会导致后续行的行号偏移，容易漏掉数据。从最后一行倒着来就完全不会有这个问题。
• Trim函数：用来去除单元格内容前后的空格，避免因为不小心输入的空格导致匹配失败。
• 屏幕更新关闭：宏运行时不会频繁刷新界面，大幅提升运行速度，尤其是处理750行的表格。
• 工作表指定：代码里用ActiveSheet指代当前激活的工作表，如果你的数据在固定的工作表（比如「Sheet1」），可以把Set ws = ActiveSheet改成Set ws = ThisWorkbook.Worksheets("Sheet1")，这样更稳妥。

粘贴完代码后，回到Excel界面，按 Alt + F8 调出宏选择窗口，选中CopyPrevRowForRight，点击「执行」就可以了。

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