运行时错误1004 Excel 2013

Question

Private Sub CommandButton1_Click()

 Dim lRow As Long

 Dim ws As Worksheet

 Set ws = Worksheets("Sheet2")

 lRow = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row

 With ws

.Cells(lRow, 1).Value = UserForm1.TextBox1.Value

.Cells(lRow, 2).Value = UserForm1.TextBox2.Value

 End With

 End Sub

我正在使用此宏将一些条目添加到单元格中。我只想将2个值添加到文本框中，然后按按钮将条目移动到Sheet2中。第二次，这2个条目将被移到第一个条目的下方，依此类推...

每次按下按钮时，都会收到消息“运行时错误1004”。

Answer 1

更改 ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row至 ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).RowEnd（x l Up）中的加粗字符是l中的l，而不是l中的1（一个）。同样在用户表单中，您可以使用以下内容Me.TextBox1.Value。命名用户窗体也可以，但是另一个可以更快地编写。