跨工作簿有条件捞取数据

在Excel中，跨工作簿有条件地提取数据通常涉及到VBA编程，因为单纯公式功能有限。以下是一个简单的步骤来演示如何使用VBA进行跨工作簿并基于特定条件抓取数据：

1. **打开VBA编辑器**:
在Excel菜单栏点击“开发者” > “Visual Basic”，进入VBA环境。

2. **创建宏**:
在新的工程中（或者现有的模块中），可以创建一个名为`GetData`的新模块。假设我们想要查找所有包含关键词的工作簿和表单，我们可以编写这样的代码：

Sub GetConditionalData()
    Dim sourceWb As Workbook, targetSheet As Worksheet
    Dim keyword As String, wsName As String
    keyword = "YourKeyword" '替换成你的条件关键词

    '遍历源工作簿列表
    For Each sourceWb In ThisWorkbook.Path & "\*.xlsx" '假设所有工作簿都在同一目录下
        Set targetSheet = Workbooks.Open(sourceWb).Worksheets(1) '默认加载第一个工作表
        
        '检查目标工作表名是否符合条件
        wsName = targetSheet.Name
        If wsName Like "*" & keyword & "*" Then
            '在符合条件的表单上获取数据，比如第A列
            Debug.Print targetSheet.Cells(1, 1) '打印示例，可根据需要修改为读取其他范围
        End If
        sourceWb.Close SaveChanges:=False '关闭当前工作簿
    Next sourceWb
End Sub

3. **运行宏**:
按 `F5` 或者点击工具栏的“运行”按钮来执行这个宏。