Excel VBA如何遍历数据集并跳过每隔一行？

Sub TraverseDataAndSkipRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据集的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历数据集
    For i = 1 To lastRow Step 2 ' 每隔一行遍历
        ' 在这里执行你的操作，例如获取单元格的值
        Dim cellValue As Variant
        cellValue = ws.Cells(i, "A").Value
        
        ' 跳过每隔一行
        If i Mod 2 = 0 Then
            Continue For
        End If
        
        ' 在这里执行你的操作，例如打印单元格的值
        Debug.Print cellValue
    Next i
End Sub