|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
For x = Worksheets.Count To 1 Step -1 '倒序更新不会出现下标越界,正序更新容易下标越界,主要原因在于工作表被删除
Sheets(x).Activate
a = ActiveSheet.Index '获取索引号
Cells.Select '选择所有单元格
ActiveWindow.RangeSelection.RowHeight = b '调整行高
'2023.11.16日增加 以下部分,删除分部分项等
For i = Cells(Rows.Count, 4).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 17).Value = "" Then '若某一行第一列为空
Rows(i).Delete '直接删除该行
End If
Next '删除无审减项新增2023.8.21######################
For i = Cells(Rows.Count, 4).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 4).Value = "分部小计 " Then '若某一行第一列为空,注意宏业文件有空格
Rows(i).Delete '直接删除该行
End If
Next '删除分部小计有空格######################
For i = Cells(Rows.Count, 4).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 4).Value = "分部小计" Then '若某一行第一列为空,注意宏业文件无空格
Rows(i).Delete '直接删除该行
End If
Next '删除分部小计无空格######################
For i = Cells(Rows.Count, 7).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 17).Value = "" Then '若某一行第一列为空
Rows(i).Delete '直接删除该行
End If
Next '删除无审减项无误######################
For i = Cells(Rows.Count, 4).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 17).Value = "" Then '若某一行第一列为空
Rows(i).Delete '直接删除该行
End If
Next '删除无审减项新增2023.10.23######################
For i = Cells(Rows.Count, 2).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 17).Value = "" Then '若某一行第一列为空
Rows(i).Delete '直接删除该行
End If
Next '删除无审减项新增2023.10.23######################
For i = Cells(Rows.Count, 10).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 4).Value = "小计" Then '若某一行第一列为空
Rows(i).Delete '直接删除该行
End If
Next '删除小计行23.11.14无误######################
For i = Cells(Rows.Count, 10).End(xlUp).Row To 6 Step -1 '从尾行到第一行依次递减1行
If Cells(i, 2).Value = "" Then '若某一行第一列为空
Rows(i).Delete '直接删除该行
End If
Next '删除第二行为空的小节23.11.14无误#####################
Next x
如何简化类似的循环,太多了,我设置的条件,需要进行条件删除,太多了。
|
|