如何根据汇总表中序号在后面多个部门表中查找内容

liutian_126

每个表格相同，VBA代替VLOOKUP在多个表中查找内容，部门会有很多个，后面明细表就有很多个，如何根据汇总表中序号在后面多个部门表中查找内容

一把小刀闯天下

'按输出凑了一个，感觉条件还不够，，，

Option Explicit

Sub test()
  Dim arr, i, j, m, p, dic, sht
  Set dic = CreateObject("scripting.dictionary")
  ReDim brr(1 To 10 ^ 4, 1 To 9)
  For Each sht In Sheets
    If sht.Name <> "汇总" And sht.[a1].Value = "序号" Then
      arr = sht.[a1].CurrentRegion.Resize(, UBound(brr, 2))
      For i = 2 To UBound(arr, 1)
        If dic.exists(arr(i, 1)) Then
          MsgBox "序列号重复：" & arr(i, 1): Exit Sub
        Else
          m = m + 1: dic(arr(i, 1)) = m
          For j = 2 To UBound(arr, 2)
            brr(m, j) = arr(i, j)
          Next
        End If
      Next
    End If
  Next
  With Sheets("汇总")
    arr = .[a1].CurrentRegion.Offset(1).Resize(, 9)
    For i = 1 To UBound(arr, 1) - 1
      If dic.exists(arr(i, 1)) Then p = dic(arr(i, 1)) Else p = m + 1
      For j = 2 To UBound(arr, 2)
        arr(i, j) = brr(p, j)
      Next
    Next
    .[k2].Resize(UBound(arr, 1) - 1, UBound(arr, 2)) = arr
  End With
End Sub

凌空一羽

用公式也行啊，左拉右拉
=VLOOKUP($A2,INDIRECT($B2&"!a:I"),COLUMN(),)

liutian_126

一把小刀闯天下 发表于 2020-1-21 12:58
'按输出凑了一个，感觉条件还不够，，，

Option Explicit

非常感谢，就是想要的

liutian_126

凌空一羽 发表于 2020-1-21 13:12
用公式也行啊，左拉右拉
=VLOOKUP($A2,INDIRECT($B2&"!a:I"),COLUMN(),)

这个我知道，现在不想通过公式操作，学习VBA中，谢谢