VBA自动化办公：轻松将Excel表格拆分成多个文件

2023-09-18 14:09:49

VBA技巧：巧妙拆分Excel表格，轻松应对数据难题

掌握Excel VBA，高效自动化表格拆分

在处理大型Excel表格时，将它们拆分成多个独立的文件常常是一项耗时且繁琐的任务。手动操作不仅效率低下，还容易出错。这时，借助VBA（Visual Basic for Applications）这一Excel内置的编程语言，我们便能轻而易举地自动化此项操作，大大提高工作效率。

VBA代码实现Excel表格拆分

首先，打开需要拆分的Excel表格，并按Alt+F11组合键打开VBA编辑器。在左侧项目资源管理器中找到ThisWorkbook，双击打开。在右侧的代码编辑区粘贴以下代码：

Sub SplitWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Long
    Dim LastRow As Long
    Dim FileName As String
    Dim Path As String

    '获取当前工作簿
    Set wb = ActiveWorkbook

    '获取工作簿中第一个工作表
    Set ws = wb.Worksheets(1)

    '获取工作表中最后一行的行号
    LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    '获取工作簿的保存路径
    Path = wb.Path

    '循环遍历工作表中的每一行
    For i = 2 To LastRow
        '获取当前行的第一个单元格的值
        FileName = ws.Cells(i, 1).Value

        '如果当前行第一个单元格的值为空，则跳过
        If FileName = "" Then
            Continue For
        End If

        '新建一个工作簿
        Workbooks.Add.SaveAs Path & "\" & FileName & ".xlsx"

        '将当前行的数据复制到新工作簿中
        ws.Range(ws.Cells(i, 1), ws.Cells(i, ws.Columns.Count)).Copy
        Windows(FileName & ".xlsx").Activate
        ActiveSheet.Range("A1").PasteSpecial xlPasteValues

        '关闭新工作簿
        ActiveWorkbook.Close savechanges:=False

    Next i

    '提示用户拆分完成
    MsgBox "拆分完成"

End Sub