EXCEL中多个表格如何快速在同一个位置添加同一个数字

2025-01-01 02:18:33

推荐回答（3个）

回答1：

同时按ALT和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("E5") = i + 500382
Next
End Sub

在此界面直接按F5运行此宏，完成。

回答2：

按ALT+F11打开VBE编辑器，插入模块，将下面的代码粘贴进去，按F5运行：Sub a()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("E5") = i
Next
End Sub

回答3：

第一个添上1，上后把鼠标放上去点一下，右下角出现黑色十字，往右拉，出现一个小的框框，点一下，选择“填充序列”