写一段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 Range
    Dim 查询结果 As Range
    Dim 查询条件 As Variant
    Dim 最后一行 As Long
    
    ' 设置数据表和查询区域
    Set 数据表 = ThisWorkbook.Sheets("Sheet1")
    Set 查询区域 = 数据表.Range("A1:B10") ' 假设查询区域是A1:B10
    
    ' 输入查询条件
    查询条件 = InputBox("请输入查询条件：")
    
    ' 查找符合条件的数据
    On Error Resume Next ' 忽略找不到符合条件的数据时的错误提示
    Set 查询结果 = 查询区域.Columns(1).Find(What:=查询条件, LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0 ' 恢复错误提示
    
    ' 判断是否找到符合条件的数据
    If 查询结果 Is Nothing Then
        MsgBox "没有找到符合条件的数据。"
    Else
        ' 找到符合条件的数据，输出结果
        最后一行 = 数据表.Cells(Rows.Count, 3).End(xlUp).Row ' 查找C列最后一行
        数据表.Cells(最后一行 + 1, 3).Value = 查询结果.Offset(0, 1).Value ' 将符合条件的数据的第二列值写入C列最后一行的下一行
        MsgBox "找到符合条件的数据，已将结果写入C列。"
    End If
End Sub

以上代码实现了以下功能：

1. 设置数据表和查询区域；
2. 输入查询条件；
3. 查找符合条件的数据，如果找到则将结果写入数据表的C列，如果找不到则弹出提示框。

请注意，以上代码仅为示例，实际应用中需要根据具体情况进行修改和扩展。

### 回答3：
下面是一段用VBA编写的查询符合条件数据的代码：

Sub 查询数据()
    Dim 数据表 As Worksheet
    Set 数据表 = ThisWorkbook.Sheets("数据表")  ' 将数据表的名称替换为实际的表格名称

    Dim 当前行 As Range
    Dim 查询结果 As Range
    Dim 条件列 As Range
    Dim 查询条件 As String
    
    ' 设置查询条件
    查询条件 = "条件"  ' 将条件替换为实际的查询条件
    
    ' 获取条件列
    Set 条件列 = 数据表.Range("A1:A" & 数据表.Cells(数据表.Rows.Count, 1).End(xlUp).Row)
    
    ' 遍历条件列，找到符合条件的行
    For Each 当前行 In 条件列.Rows
        If 当前行.Value = 查询条件 Then
            If 查询结果 Is Nothing Then
                Set 查询结果 = 当前行
            Else
                Set 查询结果 = Union(查询结果, 当前行)
            End If
        End If
    Next 当前行
    
    ' 检查是否找到了符合条件的数据
    If Not 查询结果 Is Nothing Then
        ' 将查询结果复制到新的工作表
        Dim 结果表 As Worksheet
        Set 结果表 = ThisWorkbook.Sheets.Add  ' 创建新的工作表
        查询结果.Copy 结果表.Range("A1")  ' 将查询结果复制到新工作表的第一行
        
        ' 调整新工作表的格式，以适应查询结果
        结果表.Rows.AutoFit
        结果表.Columns.AutoFit
        结果表.Select
    Else
        MsgBox "未找到符合条件的数据。"
    End If
End Sub

以上的代码会在给定的数据表中，寻找符合给定条件的数据，并将结果复制到一个新的工作表中。请记得将代码中的数据表名称和查询条件进行相应的替换，以适应你的需求。