写一段vba代码，查询Excel内的所有包含“被骗”的表格，并在表格内文字中“被骗”之后第一个数据提出来

### 回答1：

Sub FindData()
Dim i As Integer
Dim j As Integer
Dim strData As String
For i = 1 To Sheets.Count
For j = 1 To Cells(i, Columns.Count).End(xlToLeft).Column
strData = Cells(i, j).Value
If InStr(strData, "被骗") > 0 Then
MsgBox Mid(strData, InStr(strData, "被骗") + 2, 1)
End If
Next j
Next i
End Sub

### 回答2：
以下是一个用 VBA 代码查询 Excel 内所有包含 "被骗" 的表格，并提取表格内文字中 "被骗" 之后第一个数据的例子：

Sub 提取被骗数据()
    Dim ws As Worksheet
    Dim rng As Range
    Dim searchText As String
    Dim searchData As String
    Dim foundCell As Range
    
    searchText = "被骗" ' 要查询的关键词
    
    For Each ws In ThisWorkbook.Worksheets ' 遍历所有工作表
        Set rng = ws.UsedRange ' 使用的范围为工作表中的所有单元格
        Set foundCell = rng.Find(searchText, LookIn:=xlValues, LookAt:=xlPart) ' 查找包含关键词的单元格
        
        If Not foundCell Is Nothing Then ' 如果找到匹配的单元格
            searchData = Mid(foundCell.Value, InStr(foundCell.Value, searchText) + Len(searchText) + 1) ' 提取 "被骗" 之后的数据
            MsgBox "在工作表 " & ws.Name & " 中找到了包含 ""被骗"" 的单元格，提取出的数据为: " & searchData
        End If
    Next ws
End Sub

这段代码会遍历所有工作表，在每个工作表上搜索包含 "被骗" 的单元格，并在找到的单元格内提取 "被骗" 之后的数据。最后，通过消息框弹出提取出的数据。

### 回答3：
以下是一个通过VBA代码查询Excel所有包含"被骗"关键词的表格，并提取表格内文字中"被骗"之后第一个数据的示例：

Sub 提取数据()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    Dim firstData As String
    
    ' 遍历所有的工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置查询范围为当前工作表的使用范围
        Set searchRange = ws.UsedRange
    
        ' 查找包含"被骗"关键词的单元格
        Set cell = searchRange.Find("被骗", LookIn:=xlValues, lookat:=xlPart)
        
        ' 若找到匹配的单元格，则提取该单元格中"被骗"之后的第一个数据
        If Not cell Is Nothing Then
            firstData = Mid(cell.Value, InStr(cell.Value, "被骗") + Len("被骗"))
            MsgBox "在表格 " & ws.Name & " 中，" & vbCrLf & _
                   "在单元格 " & cell.Address & " 中找到了包含 ""被骗"" 的文字，" & vbCrLf & _
                   "第一个数据为: " & firstData
        End If
    Next ws
End Sub

以上代码通过遍历所有工作表，在每个工作表中查询包含"被骗"关键词的单元格，并提取该单元格内"被骗"之后的第一个数据。如果找到匹配的单元格，将显示一个消息框，其中包含找到的表格名称、单元格地址以及提取的第一个数据。