满足条件时插入单元格

Question

我的 Excel 工作表有 6 列，如下所示： A 列：新行， B 列：新副本， C栏：新面料， D列：位置， E 列：真实排序， F列：Excel排序，

我想知道如何编写一个宏来搜索 B 列，并且在 B 列中每次出现“Right”一词时，在 D、E 和 F 列的相应行中插入一个空格，然后上述行中相应列的结果将复制到这些单元格中。

ie：单词“Right”的第一次出现是在 B187 中。该宏将在D187、E187、F187中插入一个空白单元格，然后将D186中的数据复制到D187中，将E186中的数据复制到E187中，将F186中的数据复制到F 187中。

该文件有 750 行。 感谢您的任何见解！ 卡尔

Answer 1

我不明白你为什么要在单元格中添加一个空格，然后从上面的行中复制详细信息，所以下面的代码只是从上面的行中复制了值：

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
'get the last row with data on Column B
For i = 1 To LastRow 'loop from first row to last
    If UCase(ws.Cells(i, 2)) = "RIGHT" Then 'check if the word "Right" is in cell regardless of it being uppercase or lowercase
        ws.Range("D" & i & ":F" & i).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        ws.Cells(i, 3) = ws.Cells(i - 1, 3) 'get values from row above
        ws.Cells(i, 4) = ws.Cells(i - 1, 4)
        ws.Cells(i, 5) = ws.Cells(i - 1, 5)
    End If
Next i
End Sub