![Excel VBA 运行时错误 1004 应用程序定义或对象定义错误](https://linux22.com/image/1572987/Excel%20VBA%20%E8%BF%90%E8%A1%8C%E6%97%B6%E9%94%99%E8%AF%AF%201004%20%E5%BA%94%E7%94%A8%E7%A8%8B%E5%BA%8F%E5%AE%9A%E4%B9%89%E6%88%96%E5%AF%B9%E8%B1%A1%E5%AE%9A%E4%B9%89%E9%94%99%E8%AF%AF.png)
单击运行后,我不断收到运行时错误 1004,并且下面括号中的代码被突出显示。任何人都可以帮我解决这个问题
Private Sub Add_Click()
Sheet4.Activate
(Range("A1").End(x1Down).Offset(1, 0).Select)
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = ComboBox1.Value
ActiveCell.Offset(0, 5).Value = ComboBox2.Value
ActiveCell.Offset(0, 6).Value = TextBox4.Value
End Sub
答案1
要消除错误,请将第 2、3 和 4 行替换为以下内容:
Worksheets("Sheet4").Activate
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
笔记, End(x1Down)
应该像这样写End(xlDown)
,正如@AKINA 在上面的评论中所建议的那样。