excel表用vba实现每一千行自动截取为新表

在Excel中使用VBA（Visual Basic for Applications）来实现每1000行数据自动截取并创建新表，可以编写一个宏脚本。以下是基本步骤：

1. 打开VBA编辑器（在Excel中按下Alt + F11）。

2. 创建一个新的模块（Module），然后在编辑区域输入以下代码：

Sub AutoSplitEveryThousandRows()
    Dim ws As Worksheet
    Dim newSheetName As String
    Dim startRow As Long
    Dim endRow As Long
    Dim i As Long
    
    ' 设置初始变量
    Set ws = ActiveSheet ' 如果需要选择特定工作表，请替换此部分
    startRow = 1
    newSheetName = "Sheet" & Application.Rows.Count '(这里每1000行生成一个新表，可以根据实际需求调整)

    Do While ws.Cells(startRow, 1).End(xlDown).Row >= startRow + 999
        ' 截取数据到新表
        endRow = startRow + 999
        ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Name = newSheetName
        Set wsNew = ThisWorkbook.Sheets(newSheetName)
        ws.Range(ws.Cells(startRow, 1), ws.Cells(endRow, ws.Columns.Count)).Copy Destination:=wsNew.Range("A1")
        
        ' 更新起始行
        startRow = endRow + 1
        newSheetName = "Sheet" & Application.Rows.Count ' 根据实际需求更新新表名称
    Loop

    MsgBox "数据已成功分段，共创建了" & Sheets.Count - 1 & "个新表.", vbInformation
End Sub

3. 保存并关闭VBA编辑器，回到Excel界面。现在你可以运行这个宏（点击“开发”选项卡下的“宏”，找到刚刚创建的`AutoSplitEveryThousandRows`，然后点击“运行”）。

4. 当达到1000行时，就会弹出消息框告知你新的工作表已经创建，并且过程会继续直到数据结束。