Excel 宏实现数据自动填充多张表格 - 超出范围自动换页

这种功能可以通过使用宏来实现。下面是一个示例代码：

Sub FillData()
    Dim dataRange As Range
    Dim cell As Range
    Dim i As Integer
    Dim j As Integer
    Dim sheetIndex As Integer
    
    sheetIndex = 1 '第一个表格的索引
    i = 2 '行数从第二行开始
    j = 1 '列数从第一列开始
    
    Set dataRange = Range("A2:A100") '需要填充的数据范围
    
    For Each cell In dataRange
        If cell.Value = "" Then Exit For '如果数据填充完毕则退出循环
        
        If i > 10 Then '如果行数超过10行，则填充下一个表格
            sheetIndex = sheetIndex + 1
            i = 2 '行数从第二行开始
            j = 1 '列数从第一列开始
        End If
        
        Worksheets(sheetIndex).Cells(i, j).Value = cell.Value '将数据填充到表格中
        
        i = i + 1 '行数加1
    Next cell
End Sub

宏的参数含义如下：

1. dataRange：需要填充的数据范围，可以根据实际需求进行修改。
2. sheetIndex：当前表格的索引，初始化为1，每当行数超过10行时，索引加1，表示填充到下一个表格中。
3. i：当前行数，从第二行开始，每次填充完一行数据后加1。
4. j：当前列数，从第一列开始，每次填充完一列数据后加1。
5. Worksheets(sheetIndex).Cells(i, j).Value：将数据填充到指定表格的指定位置。其中Worksheets(sheetIndex)表示第sheetIndex个表格，Cells(i, j)表示第i行第j列单元格。