使用vba从3列宽的数据表中获取特定数据

Sub GetDataFromTable()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取数据表最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历每一行数据
    For i = 2 To lastRow ' 假设第一行是表头，从第二行开始遍历
        ' 获取当前行的数据
        Dim valueA As Variant
        Dim valueB As Variant
        Dim valueC As Variant
        
        valueA = ws.Cells(i, "A").Value
        valueB = ws.Cells(i, "B").Value
        valueC = ws.Cells(i, "C").Value
        
        ' 判断是否符合特定条件
        If valueA = "特定条件" Then ' 将"特定条件"替换为实际的条件
            ' 符合条件，执行相应操作
            ' 例如，将符合条件的数据输出到另一个工作表或进行其他处理
            ' 可以使用以下语句输出到另一个工作表的下一行
            ' ThisWorkbook.Worksheets("Output").Cells(i, "A").Value = valueA
        End If
    Next i
End Sub