运行时错误1004 - 更正偏移的语法

时间:2018-03-27 14:20:14

标签: excel-vba vba excel

我的代码在文本后插入新行,但是给出了运行时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

0 个答案:

没有答案