|
A董的提问。
绝对要参加哇。- Sub A()
- Application.ScreenUpdating = False
- Dim ARR, BRR(1 To 100000, 1 To 3)
- Dim M, N, I, K
- Dim WO As Workbook
- Dim SR
- SR = ThisWorkbook.Path & Application.PathSeparator
- ARR = Range("A2:C" & Cells(Rows.Count, 3).End(3).Row + 1)
- BRR(1, 1) = "序号"
- BRR(1, 2) = "营业部"
- BRR(1, 3) = "数据"
- N = 1
- For M = 1 To UBound(ARR) - 1
- N = N + 1
- BRR(N, 1) = ARR(M, 1)
- BRR(N, 2) = ARR(M, 2)
- BRR(N, 3) = ARR(M, 3)
- If ARR(M, 2) <> ARR(M + 1, 2) Then
- Set WO = Workbooks.Add
- ActiveSheet.Cells(1, 1).Resize(N, 3) = BRR
- WO.SaveAs SR & ARR(M, 2) & ".xls"
- WO.Close
- N = 1
- Erase BRR
- BRR(1, 1) = "序号"
- BRR(1, 2) = "营业部"
- BRR(1, 3) = "数据"
- End If
- Next
- Application.ScreenUpdating = True
- MsgBox "ok"
- End Sub
复制代码 |
评分
-
查看全部评分
|