怎样使用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调出运行宏窗口，然后单击“执行”按钮，程序瞬间将总表拆分为四个分表