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個條目將被移到第一個條目的下方，依此類推...每次按下按鈕時，都會收到消息“運(yùn)行時錯誤1004”。
2 回答
交互式愛情
TA貢獻(xiàn)1712條經(jīng)驗(yàn) 獲得超3個贊
更改 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（一個）。
同樣在用戶表單中，您可以使用以下內(nèi)容Me.TextBox1.Value。命名用戶窗體也可以，但是另一個可以更快地編寫。
添加回答
舉報
0/150
提交
取消