|
我的代码是这样,这什么会出现“无效的NEXT 控件变量引用”,请各位大侠指教!!!
With Sheets("汇总表")
row3 = Range("a65536").End(xlUp).Row
For m = 2 To Rows
For j = 22 To 10 Step -4
If Cells(m, j) = "" Then
Cells(m, j).Resize(1, 4).delete shift:=xlToLeft
End If
Next m
Next j
End With
With Sheets("汇总表")
row3 = Range("a65536").End(xlUp).Row
For m = 2 To Rows
For j = 22 To 10 Step -4
If Cells(m, j) = "" Then
Cells(m, j).Resize(1, 4).delete shift:=xlToLeft
End If
Next j
Next m
End With
|
|