excel中实现从基础数据中摘取条件的vba代码

以下是一个简单的VBA代码示例，可以从基础数据中摘取符合条件的数据：

Sub FilterData()
    Dim ws As Worksheet
    Dim lr As Long, i As Long
    Dim criteria As String
    
    Set ws = ActiveSheet '指定当前活动表为基础数据所在的表
    lr = ws.Cells(Rows.Count, 1).End(xlUp).Row '获取基础数据的最后一行
    
    '设置筛选条件
    criteria = InputBox("请输入筛选条件", "筛选")
    
    '循环基础数据，筛选符合条件的数据
    For i = 2 To lr '假设数据从第2行开始，第1行是表头
        If ws.Cells(i, 1).Value = criteria Then '假设第1列是筛选条件列
            '将符合条件的数据复制到新表中
            ws.Rows(i).Copy Destination:=Sheets("结果").Rows(Rows.Count).End(xlUp).Offset(1, 0)
        End If
    Next i
End Sub

上述代码中，我们首先通过 `Set` 语句指定当前活动表为基础数据所在的表，然后通过 `lr` 变量获取基础数据的最后一行。

接着，我们通过 `InputBox` 函数获取用户输入的筛选条件，并将其保存到 `criteria` 变量中。

最后，我们通过 `For` 循环遍历基础数据，逐行判断是否符合筛选条件，如果符合，则将该行数据复制到新表中。新表可以通过 `Destination` 参数指定，这里我们假设新表名为“结果”。

需要注意的是，上述代码只是一个简单示例，只能实现最基本的功能。在实际应用中，我们可能需要根据不同的条件进行筛选，或者将筛选结果保存到不同的表格中等等，需要根据具体需求做出相应的调整。