按不同列拆分数据源，这段Excel VBA代码分分钟搞定它

当我们数据分析工作步入正轨后，会发现有些工作是重复且机械类的在做，而这也是必需要做的，这时VBA就能帮我们快速高效的处理它了！

以下是按不同列拆分数据源（即按自己需求的列字段来新建sheet表，并将相应的数据源拷贝进去），运行vba代码后的操作视频。

怎么样，是不是很快速，相信蛮多同学都会有这相同的数据源处理需求，

下面贴上整段VBA代码，大家可以根据自己的数据需求调整区域字段，有不明白的地方也可以随时咨询小编哦~

Sub chaifenshuju()

Dim sht As Worksheet

Dim k, i, j As Integer

Dim irow As Integer

Dim l As Integer

Dim sht0 As Worksheet

Set sht0 = ActiveSheet

l = InputBox("请输入你要按哪列分")

Application.DisplayAlerts = False

If Sheets.Count > 1 Then

For Each sht1 In Sheets

If sht1.Name <> sht0.Name Then

sht1.Delete

End If

Next

End If

Application.DisplayAlerts = True

irow = sht0.Range("a65536").End(xlUp).Row

For i = 2 To irow

k = 0

For Each sht In Sheets

If sht.Name = sht0.Cells(i, l) Then

k = 1

End If

Next

If k = 0 Then

Sheets.Add after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = sht0.Cells(i, l)

End If

Next

For j = 2 To Sheets.Count

sht0.Range("a1:z" & irow).AutoFilter Field:=l, Criteria1:=Sheets(j).Name

sht0.Range("a1:z" & irow).Copy Sheets(j).Range("a1")

Next

sht0.Range("a1:z" & irow).AutoFilter

sht0.Select

MsgBox "已处理完毕，牛逼不"

End Sub