在VBA中,如何编写代码将一表拆分成多表

2025-03-21 17:56:38

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

在VBA中,如何编写代码将一表拆分成多表

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

在VBA中,如何编写代码将一表拆分成多表

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

在VBA中,如何编写代码将一表拆分成多表

4、会弹出模块编辑窗口!

在VBA中,如何编写代码将一表拆分成多表

5、在代码编辑窗口输入以下代码: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("年度").[a3], rg) If Rng = i & "月" Then k = k + 1 If k = 1 Then Sheets("年度").[a1:g2].Copy Sheets(i & "月").Range("a1") Sheets(i & "月").[a1] = "2019年" & i & "月份产品销售统计表" End If Rng.Resize(, 6).Copy Sheets(i & "月").Range("a" & k + 2) End If Next Rng k = 0Next iEnd Sub

在VBA中,如何编写代码将一表拆分成多表

6、在工作表的【开发工具】菜单下,点击【插入】按钮,插入一【表单】按钮,并与编写的【一釉涑杵抑表分多表】代码关联,且进入命名为【一表分多表】!

在VBA中,如何编写代码将一表拆分成多表

7、点击【一表分多表】按钮,【年度】表被瞬间分成4个月度表!

在VBA中,如何编写代码将一表拆分成多表
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢