VBA自动填充到最后一行？

VBA自动填充最后一行的代码如下：表（1）范围（J2）。选择所选内容。当自动填充目的地：=范围（J2:j118031）运行到第二行时，提示的错误为：应用程序错误或对象错误。我不知道为什么这是一个错误。我在模块中运行时没有错误。然而，建议=范围（“J2:j118031”）更改为=纸张（1）范围（“J2:J118031”）并尝试

用VBA在excel中添加一个工作表并且对其命名的实现方法和 *** 作步骤如下：

1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。

2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。

3、然后，在“模块”中输入如下代码：

Option Explicit

Sub addwork()

Sheets.Add after:=Sheets(Sheets.Count)

End Sub

4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。

5、随后，关闭VBA编辑器，返回到Excel工作表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。

6、最后，在d出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。

Sub AddWs()

Dim n As Long, i As Long

n = 4 '将4改为实际要添加的工作表数目

For i = 1 To n

Worksheets.Add after:=Worksheets(Worksheets.Count)

Next i

End Sub

---