excel - VBA Excel 查找所有不符合序列要求的行并清除

Question

我是编码方面的初学者，我正在尝试应我公司的要求为大型数据集编写宏。所以数据集比下面的屏幕截图大得多，但我正在尝试编写一个宏来查看 Rep 列并为代表在 5 之前结束的小组成员添加一个空白行。所以对于每个小组成员/筛选组合，我需要它能够识别在 5 之前结束的序列(0-5)。我已经在互联网上搜索了数周来弄清楚如何/从哪里开始写这个。我希望得到一些关于我可以写这篇文章的方法的指导。

Answer 1

插入空白行

假设数据“很好地”从单元格 A1 开始并且有一行标题，并且没有空行或空列。

Option Explicit

Sub InsertBefore0()
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    Dim rg As Range: Set rg = ws.Range("A1").CurrentRegion
    Dim crg As Range: Set crg = rg.Columns(5)
    
    Dim drg As Range
    Dim cCell As Range
    Dim r As Long
    Dim m As Long
    
    For r = 3 To rg.Rows.Count
        Set cCell = crg.Cells(r)
        If cCell.Value = 0 Then
            If cCell.Offset(-1).Value < 5 Then
                If drg Is Nothing Then ' combine cells into a range
                    Set drg = cCell.Offset(, m)
                Else
                    Set drg = Union(drg, cCell.Offset(, m))
                End If
                m = (m + 1) Mod 2 ' prevent two consecutive rows inserted
            End If
        End If
    Next r
        
    If drg Is Nothing Then Exit Sub
    
    drg.EntireRow.Insert xlShiftDown, xlFormatFromLeftOrAbove
        
    MsgBox "Blank rows inserted.", vbInformation
    
End Sub