如何简化重复的循环结构

longjufeng

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



如何简化类似的循环，太多了，我设置的条件，需要进行条件删除，太多了。

沈默00

AI写的吧
附件发上来，带上你的需求，重新写一下吧