如何保留指定行数据并将其余行值替换为0（Excel VBA实现）

核心逻辑 #

需要保留的行满足两个条件：一是第2行，二是行号减去2后能被58整除的行（比如60行：60-2=58，58能被58整除；118行：118-2=116，116能被58整除），其余行直接设为0即可。

修正后的VBA代码 #

Sub KeepSpecificRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row '获取A列最后一行的行号
    
    For i = 1 To lastRow
        '判断当前行是否为需要保留的行
        If i = 2 Or (i - 2) Mod 58 = 0 Then
            '保留原数值，无需额外操作
        Else
            ws.Cells(i, "A").Value = 0 '非目标行替换为0
        End If
    Next i
End Sub

代码说明 #

• lastRow：通过定位A列最后一个非空单元格，避免遍历无意义的空行
• 循环遍历每一行，用行号判断逻辑精准筛选需要保留的行，无需依赖特定单元格值，解决原代码只能替换固定值的问题

内容的提问来源于stack exchange，提问作者EuanM28