Y = 2 '表示B列，可以自行修改。
X1 = ActiveWorkbook。ActiveSheet.UsedRange.Row
X2 =活動工作簿。active sheet . cells . special cells(xlCellTypeLastCell)。排
數量= 0
對於X = X1到X2
Do While單元格(X，Y)>=0且X+NUM & lt；= X2
行數(X)。挑選
選擇。刪除班次:=xlUp
NUM = NUM + 1
環
然後
末端接頭