excel - 当在单元格中找到某个单词时，插入一行

Question

我正在尝试编写一个宏，当单击一个按钮时，所有信息都会从一个电子表格传输到一个表单（也是 excel 表）。我似乎无法做对一件事：当我到达表单底部时插入行。在表格底部的 A 列中，它显示：附加。每次我接触到这个单元格时，我都想插入一条线。请帮忙！

例如：

 for i = 1 to lastline
worksheet1.Range("A" & i).value = worksheet2.Range("A" & i)

if worksheet1.Range("A" & i).value contains "additional"  'please help me write this line
insert a line above this cell 'please help me write this line
end if
next i

请帮忙！！！提前致谢！让我知道我的问题是否有意义:)

Answer 1

Dim tmp, skip As Long

skip = 0

For i = 1 To lastline
    tmp = worksheet2.Range("A" & i).Value
    If LCase(tmp) Like "*additional*" Then skip = skip + 1
    worksheet1.Cells(i + skip, 1).Value = tmp
Next i