vb怎么将年表分成四份季度表?

2024-07-16 17:44:49

字体：大中小

来源：转载

供稿：网友

visual basic中想要编写代码将一表拆分成多表，该怎么实现呢？下面我们就来看看详细的教程。

软件名称：Visual Basic 6.0 精简安装版软件大小：5.86MB更新时间：2014-08-25

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

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

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

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

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

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

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

以上就是vb编写代码将一表拆分成多表的教程，希望大家喜欢，请继续关注错新站长站。