按任意字段將總表拆分為多個分表

按任意字段將總表拆分為多個分表

今天再給大家分享一段代碼，作用是按任意列，將總表數據拆分為多個分表。如下圖所示的數據為例，是一張總表，標題行存在合并單元格等特殊情況，現在需要按任意字段，比如C列的班級字段，拆分為多張分表。

復制運行以下代碼即可▼

代碼詳細解釋見注釋，概要說明如下：

第13至第14行代碼調用getTitCount函數過程，獲取用戶在InputBox對話框中輸入的標題行行數。

第17至第18行代碼調用GetRngGistC函數過程，獲取用戶在Application.inputbox對話框中選擇的拆分依據列。

第20行代碼調用disAppSet過程，取消屏幕刷新等系統設置。

第22至第23行代碼將總表數據存入數組aData，并獲取獲取總表實際存在數據的區域、首列、拆分依據列在實際區域中的第幾列、首行和尾行等重要數據。這是由于首行首列未必是第一行第一列，比如本例所示的數據，也就導致拆分依據列的列標未必是實際處理數據的列標。

第31至第35行代碼計算標題區域，并賦值變量rngTit。

第38行至第54行代碼遍歷拆分依據列，處理異常值，比如空格、錯誤值和可能以”/”為格式的日期值。

第13至第14行代碼調用getTitCount函數過程，獲取用戶在InputBox對話框中輸入的標題行行數。

第57至第69行代碼通過前8行數據判斷相關列是否為文本格式，避免文本型數值，比如身份證，在拆分后變形。代碼將文本型數值所在的單元格地址賦值變量strADS。

第70至第106行代碼按關鍵字拆分總表數據。其中第78至第85行代碼遍歷數據源將符合條件的數據存入數組aRes。第86至105行代碼新建工作表，并將結果數組的數據寫入該工作表，并設置標題行。

第111至第115行代碼使用MsgBox函數以消息框的形式顯示數據拆分結果信息。

……

示例下載，百度網盤▼https://pan.baidu.com/s/1i9RJD1PdsXoMI72neZNU2w提取碼: twwi

原文：https://mp.weixin.qq.com/s/MgOVpaOKU7uB20Aef5ancA

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。