根据特定单元格中的值添加一行数据 - 复制下面的整行数据，更改 1 个单元格值

Question

想要根据 B 列中的 2 个特定值复制并插入一行到原始行下方。但是，要更改插入行中 B 列单元格的值，以适应原始行中的每个特定值。有没有办法用 VB 或宏来做到这一点？提前谢谢

原始 B 列值 FIRE_STEP_UP 和 FMLA_APPROVED_LEAVE 新的 B 列值 WRK 和 SICK 请参阅附件。结果 原来的

Answer 1

根据我的评论，可以使用类似这样的方法：

Sub CopyAndReplace()
Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Cells(i, 2).Value = "FIRE_STEP_UP" Then
        Rows(i).Copy
        Rows(i + 1).Insert Shift:=xlDown
        Cells(i + 1, 2).Value = "WRK"
    ElseIf Cells(i, 2).Value = "FMLA_APPROVED_LEAVE" Then
        Rows(i).Copy
        Rows(i + 1).Insert Shift:=xlDown
        Cells(i + 1, 2).Value = "SICK"
    End If
Next i
End Sub

这会从最后使用的单元格循环A到第一行。相应地复制、插入并更改列中的值B。