实例【编写、运行VBA代码将“年度统计表”依据月份拆分成各月度表？】

在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

会弹出模块编辑窗口！

在代码编辑窗口输入以下代码：

Sub 一表分多表()

For i = 1 To 4

Worksheets.Add.Name = i 月

Sheets(i 月).Move after:=Sheets(Sheets.Count)

Set rg = Sheets(年度).Cells(Rows.Count, 1).End(xlUp)

For Each Rng In Sheets(年度).Range(Sheets(年度)., rg)

If Rng = i 月 Then

k = k + 1

If k = 1 Then

Sheets(年度)..Copy Sheets(i 月).Range(a1)

Sheets(i 月). = 2019年 i 月份产品销售统计表

End If

Rng.Resize(, 6).Copy Sheets(i 月).Range(a k + 2)

End If

Next Rng

k = 0

Next i

End Sub

在工作表的【开发工具】菜单下，点击【插入】按钮，插入一【表单】按钮，并与编写的【一表分多表】代码关联，且进入命名为【一表分多表】！

点击【一表分多表】按钮，【年度】表被瞬间分成4个月度表！