一对多查询后一维转二维显示

zrf200788 · 发表于 2023-2-16 22:14

求助一对多查询后一维转二维显示

迪尼索斯 · 发表于 2023-2-16 22:40

0123456789

shiruiqiang · 发表于 2023-2-16 22:51

本帖最后由 shiruiqiang 于 2023-2-16 23:02 编辑

----------字典----------

杨建营 · 发表于 2023-2-16 23:39

请楼主参考。

杨建营 · 发表于 2023-2-16 23:41

Sub tongji()
Dim i&, j&, k&, m&
Dim arr, brr
With Sheet1
arr = .[a1].CurrentRegion
End With
With Sheet2
m = 5
brr = .[a1].CurrentRegion
For j = 2 To UBound(brr)
      For k = 2 To UBound(arr)
      If brr(j, 3) = arr(k, 3) Then
         brr(j, m) = arr(k, 4)
         m = m + 1
      End If
Next
m = 5
Next
.[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 一对多查询后 一维转二维显示

[求助] 一对多查询后一维转二维显示