使用VBA在excle工作簿中写一个以列为参考依据对工作表中的内容进行拆分

好的，我来为你讲解如何使用 VBA 在 Excel 工作簿中写一个以列为参考依据对工作表中的内容进行拆分的程序。

首先，你需要打开 Visual Basic 编辑器，在编辑器中点击左上角的“插入”，然后选择“模块”。这将在编辑器中创建一个新的模块。

在新的模块中，输入以下代码：

Sub SplitData()

Dim i As Integer
Dim j As Integer

For i = 1 To Worksheets.Count
    For j = 1 To Worksheets(i).Columns.Count
        If Worksheets(i).Cells(1, j).Value = "拆分依据" Then
            Worksheets(i).Columns(j).EntireColumn.Copy
            Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Worksheets(i).Cells(2, j).Value
            Worksheets(Worksheets.Count).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
            Worksheets(i).Columns(j).EntireColumn.Delete
        End If
    Next j
Next i

End Sub

这段代码的作用是：

- 遍历所有的工作表（For i = 1 To Worksheets.Count）
- 在每个工作表中，遍历所有的列（For j = 1 To Worksheets(i).Columns.Count）
- 如果当前列的第一行单元格的值为“拆分依据”（If Worksheets(i).Cells(1, j).Value = "拆分依据"），则将该列复制（Worksheets(i).Columns(j).EntireColumn.Copy），并新建一个工作表（Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Worksheets(i).Cells(2, j).Value），将复制的内容粘贴到新工作表的第一个