将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 =

>>阅读原文<<