运行时错误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).Row

End（x l Up）中的加粗字符是l中的l，而不是l中的1（一个）。

同样在用户表单中，您可以使用以下内容Me.TextBox1.Value。命名用户窗体也可以，但是另一个可以更快地编写。