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”。