怎样使用VBA工作表拆分（乱序）？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub根据组别对工作表拆分()

 

    Dim cll As Range, 分表As Worksheet, i, sht As Byte

 

    Application.ScreenUpdating=False

 

'新建不重复工作表

 

For i=2 To 11

 

  If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)),

 

    Cells(i, 1))=1 Then

 

  Sheets.Add(after:=Sheets("总表")).Name=Cells(i, 1)

 

  Sheets("总表").Select

 

    End If

 

 Next

 

 '复制表头到各新工作表

 

    For sht=2 To Sheets.Count

 

        With Sheets("总表").Rows(1)

 

      .Copy Sheets(sht).Rows(1)

 

    End With

 

        Next sht

 

 '复制数据到各新工作表

 

      For Each cll In Sheets("总表").Range("a2", Sheets("总表").Cells

 

      (Sheets("总表").Rows.Count, 1).End(xlUp))

 

      Select Case Trim(cll.Text)    '去除空格

 

      Case "A组"

 

          Set分表=Sheets("A组")

 

        Case "B组"

 

          Set分表=Sheets("B组")

 

        Case "C组"

 

          Set分表=Sheets("C组")

 

        Case "D组"

 

          Set分表=Sheets("D组")

 

      Case Else:

 

      Set分表=Nothing

 

      End Select

 

      '如果数据存在，则复制到目标工作表

 

      If Not分表Is Nothing Then

 

          cll.EntireRow.Copy分表.Rows(分表.UsedRange.Rows.Count+1)

 

      End If

 

      Next

 

    Application.ScreenUpdating=True

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序瞬间将总表拆分为四个分表