excel：VBA，批量递增填充分工作表的同一个位置

最新推荐文章于 2022-07-27 00:17:27 发布

runadrun

最新推荐文章于 2022-07-27 00:17:27 发布

阅读量1.3k

点赞数

文章标签： excel vba

本文链接：https://blog.csdn.net/runadrun/article/details/104926447

版权

新增宏，编辑。
第4行代码即：从第1个工作表开始，一直到第30个分工作表，单元格A2的值从1递增到30.
第5行代码即：从第2个工作表开始，一直到第31个分工作表，K2到K10区域单元格的值从1递增到30.
第6行代码即：从第2个工作表开始，一直到第31个分工作表，L2到L10区域单元格的值都是3.

无论工作表名是什么，按位置数数。
dim 意味创建一个新的变量

Sub 宏1()

Dim j As Integer

For j = 1 To 30
Worksheets(j).Range("A2") = j
Worksheets(j + 1).Range("K2:K10") = j
Worksheets(j + 1).Range("L2:L10") = 3
Next
End Sub