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編寫代碼將一表拆分成多表的教程，希望大家喜歡，請繼續關注錯新站長站。

相關推薦：

VB6.0怎么設置窗口平鋪方式?

VB6.0項目怎么添加用戶控件?

VB怎么編寫給表格快速添加批注的代碼?