將excel按照某一列拆分成多個文件

1.打開目標excel,按alt + f11鍵打開VBE窗口 2.選擇插入->模塊粘貼下面代碼到編輯器中 Sub 保留表頭拆分數據爲若干新工作簿()     Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%     c = Application.InputBox("請輸入拆分列號", , 4, , , , , 1)     If c =

>>阅读原文<<