將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 = 0

>>阅读原文<<