写一段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 数据表 As Worksheet
    Dim 查询结果 As Worksheet
    Dim 条件 As Variant
    Dim 查询范围 As Range
    Dim 查询结果行数 As Integer
    Dim i As Integer
    
    ' 设置数据表和查询结果表
    Set 数据表 = Sheets("数据表")
    Set 查询结果 = Sheets.Add
    查询结果.Name = "查询结果"
    
    ' 获取查询条件
    条件 = InputBox("请输入查询条件")
    
    ' 设置查询范围，这里假设查询范围是A列到D列的数据
    Set 查询范围 = 数据表.Range("A:D")
    
    ' 在查询结果表中填充表头
    For i = 1 To 查询范围.Columns.Count
        查询结果.Cells(1, i).Value = 查询范围.Cells(1, i).Value
    Next i
    
    ' 根据条件查询数据并填充到查询结果表中
    查询结果行数 = 2 ' 从第2行开始填充查询结果
    For i = 2 To 查询范围.Rows.Count
        If 查询范围.Cells(i, 1).Value = 条件 Then ' 这里假设查询条件在A列
            ' 将符合条件的数据复制到查询结果表中
            查询范围.Rows(i).Copy 查询结果.Rows(查询结果行数)
            查询结果行数 = 查询结果行数 + 1
        End If
    Next i
    
    ' 自动调整查询结果表的列宽
    查询结果.UsedRange.Columns.AutoFit
    
    ' 提示查询完成
    MsgBox "查询完成！"
    
    ' 清除查询结果表以外的其他工作表
    Application.DisplayAlerts = False ' 禁止弹出警告对话框
    For Each ws In Worksheets
        If ws.Name <> "查询结果" Then
            ws.Delete
        End If
    Next ws
    Application.DisplayAlerts = True ' 启用警告对话框

End Sub

通过运行上述VBA代码，可以实现在`数据表`工作表中按照指定条件查询数据，并将查询结果显示在新建的`查询结果`工作表中。请根据实际需求，调整代码中的数据表名、查询范围和查询条件列的位置。

### 回答3：
写一段VBA代码，查询符合条件的数据。

Sub QueryData()

Dim ws As Worksheet
Dim searchRange As Range
Dim searchData As Range
Dim criteria As String

Set ws = ThisWorkbook.Worksheets("Sheet1") '设置要查询的工作表名
Set searchRange = ws.Range("A1:E10") '设置要查询的范围，假设为A1:E10
criteria = "条件" '设置查询的条件

'在查询范围内查找符合条件的数据
Set searchData = searchRange.Find(What:=criteria, LookIn:=xlValues, LookAt:=xlPart)

'如果找到符合条件的数据，则继续查找下一个符合条件的数据
If Not searchData Is Nothing Then
Do
'在这里处理查找到的数据，比如将找到的单元格标记为特定颜色
searchData.Interior.Color = RGB(255, 0, 0) '标记为红色
'继续查找下一个符合条件的数据
Set searchData = searchRange.FindNext(searchData)
Loop While Not searchData Is Nothing
Else
'如果没有找到符合条件的数据，则给出提示
MsgBox "没有找到符合条件的数据。"
End If

End Sub

以上是一段简单的VBA代码，用于在指定范围内查询符合条件的数据。代码中的"条件"为要查询的条件，可以根据实际情况进行修改。当找到符合条件的数据时，将该单元格标记为红色；如果没有找到符合条件的数据，则会弹出提示框给出相应的提示。可以根据实际需求，对查询到的数据进行进一步处理。