visual basic中想要編寫代碼將一表拆分成多表，該怎么實現呢？下面我們就來看看詳細的教程。
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怎么編寫給表格快速添加批注的代碼?
新聞熱點
疑難解答
圖片精選
