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)).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
arr = Array(∼∼工作表名∼∼)
On Error Resume Next
For Each sh In arr
Sheets(sh).Range("A5:A50").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next
On Error GoTo 0作者: msmplay 時間: 2017-3-25 13:15