Sub test()
Dim A, i, j, k, n, s, p$, f$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
p = ThisWorkbook.Path & "\"
n = 10 '每n行导出生成一个工作簿
A = Range("a1").CurrentRegion
For i = 2 To UBound(A) Step n '遍历全部的起始行
'1)赋值
f = i \ n + 1
s = 1
For k = i To i + n - 1 '遍历n次
If k <= UBound(A) Then '如果在数组内
s = s + 1
For j = 1 To UBound(A, 2)
A(s, j) = A(k, j)
Next j
End If
Next k
'3)输出
With Workbooks.Add
.Sheets(1).[a1].Resize(s, j - 1) = A
.SaveAs p & f
.Close
End With
Next i
MsgBox f, , "工作簿的个数"
End Sub
生成工作簿.rar
(10.54 KB, 下载次数: 24)