同时查询两个表的数据

冰叶雕翎

同时查询两个表的数据，使用环境为WPS，各位老师请帮帮忙，谢谢

冰叶雕翎

不好意思，打错字了，使用环境为WPS，已修改

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
    If T.Address = "$C$1" Then '关键字(词)单元格
        If Len(T) = 0 Then Exit Sub
        ReDim brr(1 To 10000, 1 To 7)
        ReDim crr(1 To 100000, 1 To 7)
        f = Dir(ThisWorkbook.Path & "\*.xls*")
        Do While f <> ""
            If f <> ThisWorkbook.Name Then
                Set wb = GetObject(ThisWorkbook.Path & "\" & f)
                arr = wb.Sheets(1).[A1].CurrentRegion
                If InStr(T, " ") = 0 Then
                    For i = 2 To UBound(arr)
                        If InStr(arr(i, 3), T) > 0 Then
                            N = N + 1
                            For j = 1 To UBound(arr, 2)
                                brr(N, j) = arr(i, j)
                            Next
                        End If
                    Next
                Else
                    s1 = Split(T, " ")(0): s2 = Split(T, " ")(1)
                    For i = 2 To UBound(arr)
                        If InStr(arr(i, 3), s1) > 0 And InStr(arr(i, 3), s2) > 0 Then
                            m = m + 1
                            For j = 1 To UBound(arr, 2)
                                crr(m, j) = arr(i, j)
                            Next
                        End If
                    Next
                End If
                wb.Close False
            End If
         f = Dir
         Loop
    If N > 0 Then
        Range("A3:G" & [C65536].End(2).Row).ClearContents
        [A3].Resize(N, 7) = brr
    End If
     If m > 0 Then
        Range("A3:G" & [C65536].End(2).Row).ClearContents
        [A3].Resize(m, 7) = crr
    End If
End If
   
End Sub

3190496160

zlzz1971

WPS环境可用。

mmwwdd

这个上午有人解决了,我的帖子你也可以看一下,大同小异

mmwwdd

mmwwdd

就是这意思,多表查询

冰叶雕翎

3190496160 发表于 2023-1-11 13:18
Private Sub Worksheet_Change(ByVal T As Range)
    If T.Address = "$C$1" Then '关键字(词)单元格
   ...

谢谢老师的帮忙，非常的完美，万分感谢

冰叶雕翎

3190496160 发表于 2023-1-11 13:18
Private Sub Worksheet_Change(ByVal T As Range)
    If T.Address = "$C$1" Then '关键字(词)单元格
   ...

老师你好，现在遇到一个问题，在其中有一个工作表没有相应数据时会报错，麻烦老师在帮忙修改一下，谢谢