excel：VBA，批量递增填充分工作表的同一个位置_vba将总表数据写入分表指定位置

作者：IT小白 | 2024-07-17 23:11:12

踩

vba将总表数据写入分表指定位置

新增宏，编辑。
第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

1
2
3
4
5
6
7
8
9
10
11

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/IT小白/article/detail/842458