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

1.alt+F11 2.點擊    3.拷貝代碼 代碼： Sub NewSheets() Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x& Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd& Application.ScreenUpdating =

>>阅读原文<<