ExcelVBA筛选法按分类条件拆分一个工作表为多个工作簿

Sub 筛选拆分() Dim d As Object, sht As Worksheet, arr, brr, r, kr, i&, j&, k&, x& Dim