求助：删除单元格

MOMI

A         B            C          D         E            F
1           1           1           1                   1
2           2           2           2                   2
3                       3           3                   3
4           4           4           4                   4
5                        5           5                   5
6           6           6           6                   6
7           7           7           7                   7
8           8           8           8                   8
9           9           9           9                   9
10                       10          10                  10
11          11          11          11                  11
12          12          12          12                  12
13          13          13          13                  13
14          14          14          14                  14
15          15          15          15                  15
16          16          16          16                  16


        求助：删除B列单元格为空的行所在的A:D单元格（即A3：D3，A5：D5，A10：D10)，删除后下方单元格上移（F列不删除）

    For i = 100  To 2 Step -1
      If Cells(i, 2) = "" Then Range(Cells(i, 1), Cells(i, 4)).Select
      Selection.Delete Shift:=xlUp
    Next i
错在哪里？        这样会把6789行删除                       

andy.peng

1. For i = 100 To 1 Step -1
   
2. If Cells(i, 2) = "" Then
   
3. Range(Cells(i, 1), Cells(i, 4)).Select
   
4. Selection.Delete Shift:=xlUp
   
5. End If
   
6. Next

复制代码