Excel 宏实现自动填充数据到多个表格

这种功能可以通过编写宏来实现。以下是一个简单的示例：

1. 在 Excel 中创建一个工作簿，并在每个工作表中设置好表格。

2. 打开 VBA 编辑器，在'工具'菜单下选择'宏'或按下'ALT+F8'打开宏窗口。

3. 在宏窗口中，输入以下代码：

Sub FillData()
Dim ws As Worksheet
Dim i As Long, j As Long, k As Long
Dim lRow As Long, lCol As Long

'设置起始行和列
i = 1
j = 1

For Each ws In Worksheets
    '获取当前工作表的最后一行和最后一列
lRow = ws.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lCol = ws.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    '循环填充数据
    For k = 1 To lRow
        ws.Cells(k, j).Value = i
        i = i + 1
        
        If i > lRow * lCol Then Exit Sub '如果超出范围，则退出宏
        
        '如果当前列已经填满，则移到下一列
        If k = lRow Then
            j = j + 1
        End If
    Next k
Next ws

End Sub

4. 点击'运行'按钮或按下'F5'键来运行宏。

该宏会从第一个工作表开始，按照从左到右、从上到下的顺序填充数据。当数据数量超出当前工作表的范围时，会自动转移到下一个工作表进行填充。