我的代码在文本后插入新行,但是给出了运行时1004错误,并且没有在新行中插入userform的文本框值。我无法弄清楚使用偏移的正确语法。任何帮助,将不胜感激。
lastRow = ws.Cells(Rows.count, "F").End(xlUp).Row
With ws
For i = lastRow To 2 Step -1
If .Cells(i, "F").Value2 = TextBox1.Text Then
Rows(i + 1).Insert shift:=xlDown
.Cells("F" & Cells.Offset(1, 0).Row).Value2 = TextBox1.Text
.Cells("J" & Cells.Offset(1, 0).Row).Value2 = TextBox2.Text
.Cells("K" & Cells.Offset(1, 0).Row).Value2 = TextBox3.Text
.Cells("O" & Cells.Offset(1, 0).Row).Value2 = TextBox4.Text
Exit For
End If
Next i
End With