写一段VBA代码，导入符合条件的数据

### 回答1：
Sub ImportData()
Dim i As Long, LastRow As Long
Dim ws As Worksheet, wb As Workbook

Set ws = ThisWorkbook.Sheets("Sheet1") '设置要插入数据的工作表
Set wb = Workbooks.Open("C:\Users\User\Desktop\Data.xlsx") '设置要导入数据的工作簿

LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '获取工作表最后一行数据的行号

For i = 2 To wb.Sheets(1).Cells(ws.Rows.Count, "A").End(xlUp).Row '从第2行开始循环，循环到导入工作簿的最后一行
If wb.Sheets(1).Cells(i, "A").Value = "Yes" Then '如果导入工作簿第i行的A列的值是"Yes"
ws.Range("A" & LastRow + 1).Value = wb.Sheets(1).Range("A" & i).Value '将导入工作簿的A列的值插入到当前工作表的最后一行的A列
ws.Range("B" & LastRow + 1).Value = wb.Sheets(1).Range("B" & i).Value '将导入工作簿的B列的值插入到当前工作表的最后一行的B列
LastRow = LastRow + 1 '更新工作表最后一行的行号
End If
Next

wb.Close False '关闭导入工作簿，不保存
End Sub

### 回答2：
VBA代码如下：

Sub 导入符合条件的数据()
    Dim 目标工作表 As Worksheet
    Set 目标工作表 = ThisWorkbook.Worksheets("目标工作表名称")  '修改目标工作表名称
    
    Dim 源工作表 As Worksheet
    Set 源工作表 = ThisWorkbook.Worksheets("源工作表名称")  '修改源工作表名称
    
    Dim 最后一行 As Long
    最后一行 = 源工作表.Cells(Rows.Count, 1).End(xlUp).Row
    
    Dim 目标行号 As Long
    目标行号 = 2  '从第2行开始
    
    Dim i As Long
    For i = 2 To 最后一行
        If 源工作表.Cells(i, 1).Value = "条件1" And 源工作表.Cells(i, 2).Value = "条件2" Then  '修改条件1和条件2
            目标工作表.Cells(目标行号, 1).Value = 源工作表.Cells(i, 1).Value
            目标工作表.Cells(目标行号, 2).Value = 源工作表.Cells(i, 2).Value
            '继续根据需要导入其他列数据
            
            目标行号 = 目标行号 + 1
        End If
    Next i
    
    MsgBox "数据导入完成！"
End Sub

上述VBA代码可选择在"源工作表名称"中符合"条件1"和"条件2"的数据，并将这些数据导入到"目标工作表名称"中。你需要根据实际情况修改"目标工作表名称"和"源工作表名称"。同时，你也可以按照需求修改条件和导入的列数。

### 回答3：
在VBA中，可以使用Worksheet对象的Range属性和AutoFilter方法来导入符合条件的数据。下面是一个示例代码：

Sub 导入数据()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range
    Dim filterColumn As Range
    Dim filterCriteria As String
    
    ' 设置源数据工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("源数据")
    Set wsTarget = ThisWorkbook.Worksheets("目标数据")
    
    ' 设置源数据范围
    Set rngSource = wsSource.Range("A1:F50")
    
    ' 设置筛选条件的列和值
    Set filterColumn = rngSource.Rows(1).Find(What:="条件列号", LookIn:=xlValues, LookAt:=xlWhole)
    filterCriteria = "条件值"
    
    ' 清除目标工作表中的数据
    wsTarget.UsedRange.Clear
    
    ' 开始筛选并导入数据
    rngSource.AutoFilter Field:=filterColumn.Column, Criteria1:=filterCriteria
    rngSource.SpecialCells(xlCellTypeVisible).Copy wsTarget.Range("A1")
    
    ' 取消筛选
    wsSource.AutoFilterMode = False
    
    ' 完成提示
    MsgBox "数据已成功导入目标工作表。"
End Sub

上述代码会将"源数据"工作表中"条件列号"列中符合"条件值"的所有行数据，导入到"目标数据"工作表中的A1单元格开始的位置。

请根据实际情况修改代码中的工作表名称、源数据范围、筛选条件的列号和值等，并将代码粘贴到VBA编辑器中运行。