写一段VBA代码，查询符合条件的数据

### 回答1：
为了查询符合条件的数据，你可以使用 VBA 中的 Filter 函数。 例如，下面的代码将在名为 "Data" 的工作表中查询所有在列 "A" 中包含 "apple" 的行：

Dim rng As Range

Set rng = Worksheets("Data").Range("A1:C10000")

rng.AutoFilter Field:=1, Criteria1:="apple"

这段代码会在 Data 工作表的 A 列中筛选出所有值为 "apple" 的单元格，并将这些单元格显示在屏幕上。

如果你想要查询满足多个条件的数据，你可以使用下面的代码：

rng.AutoFilter Field:=1, Criteria1:="apple", Operator:=xlOr, Criteria2:="orange"

这段代码会在 Data 工作表的 A 列中筛选出所有值为 "apple" 或 "orange" 的单元格，并将这些单元格显示在屏幕上。

### 回答2：
下面是一个简单的VBA代码例子，用于查询符合条件的数据：

Sub 查询数据()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    '设置要查询的工作表
    Set ws = ThisWorkbook.Worksheets("数据")
    
    '获取数据所在列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '循环遍历数据
    For i = 2 To lastRow '假设数据从第2行开始
        '判断条件
        If ws.Cells(i, "A").Value = "条件1" And ws.Cells(i, "B").Value = "条件2" Then
            '将符合条件的数据进行处理，这里只是简单的打印到Immediate Window
            Debug.Print ws.Cells(i, "A").Value & " " & ws.Cells(i, "B").Value & " " & ws.Cells(i, "C").Value
        End If
    Next i
End Sub

以上代码假设数据所在的工作表为"数据"，数据从第2行开始，条件1要求第A列的值为"条件1"，条件2要求第B列的值为"条件2"。当满足条件时，将数据打印到Immediate Window（可以通过在VBA编辑器中按下Ctrl + G打开Immediate Window）。

你可以根据你的具体需求修改条件和处理方式，例如将数据存储到一个集合中、将数据复制到其他工作表，或者做其他处理。

### 回答3：
这里给出一个例子，假设有一个名为"Sheet1"的工作表，其中有一列数据为"A"，我们需要查询"A"列中值为"Hello"的行。

Sub 查询数据()
    Dim i As Integer
    Dim lastRow As Integer
    
    ' 获取"A"列的最后一行
    lastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历"A"列中的每一行
    For i = 1 To lastRow
        ' 判断"A"列当前行的值是否为"Hello"
        If Sheets("Sheet1").Cells(i, 1).Value = "Hello" Then
            ' 输出符合条件的行号到Immediate窗口中
            Debug.Print "符合条件的数据在第" & i & "行"
        End If
    Next i
    
End Sub

以上代码会遍历"A"列中的每一行，判断是否满足条件，如果满足条件，则输出符合条件的行号到Immediate窗口中。你可以根据实际情况对代码进行修改，如修改工作表的名称、查询条件等。