- 帖子
- 91
- 主題
- 5
- 精華
- 0
- 積分
- 130
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-5-14
- 最後登錄
- 2020-5-17
|
回復 1# msmplay
不敬責的簡單改良- Sub 整理訂單()
- Application.Calculation = xlCalculationManual '關閉自動重算, 加快速度
- Selection.Copy
- arr = Array("11&52", "12", "13", "14", "15", "21&26", "22", "24", "25", "32", "34", "41", "42", "43", "44", "47", "61", "62", "64", "71", "81", "82", "83", "84", "85", "91", "92", "M2")
- For y = 0 To 27
- Sheets(arr(y)).Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
- Next
- For y = 0 To 27
- Sheets(arr(y)).Select
- For i = 50 To 5 Step -1
- If Cells(i, "A") = "" Then
- Rows(i).Delete
- End If
- Next
- Next
- Application.Calculation = xlCalculationAutomatic '恢復自動重算
- End Sub
|
|
發表於 2017-3-23 18:47
| 