VBA代码运行中转置出现类型不匹配问题，求大神帮忙解决！！！！

work_01

本人写了一段代码，不知道为什么最后转置时出现问题，代码如下：


Sub 字典练习()
    Dim d As New Dictionary
    Dim brr() As String
    Dim crr() As String
    Dim frr() As String
    Dim hrr() As String
    arr = Sheet3.Range("a2", Cells(Rows.Count, 5).End(xlUp))
    For i = 2 To UBound(arr)
        If d.Exists(arr(i, 1)) Then
            d(arr(i, 1)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5) + d(arr(i, 1))(3))
            
        Else
            d(arr(i, 1)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5))
            
        End If
    Next
    t = d.Items
    t = WorksheetFunction.Transpose(WorksheetFunction.Transpose(d.Items))
    ReDim brr(1 To UBound(t))
    For j = 1 To UBound(t)
        brr(j) = Join(Array(t(j, 1), t(j, 2), t(j, 3), t(j, 4), t(j, 5)))
    Next

    crr = Filter(brr, Sheet3.Range("p1"))
   

    ReDim frr(1 To UBound(crr) + 1)
   
    For k = 0 To UBound(crr)
        frr(k + 1) = Split(crr(k))
    Next
   
    hrr = WorksheetFunction.Transpose(frr)
End Sub

work_01

此处运行时出现类型不匹配

ykcbf1100

写这么复杂，改不了，新写一个，你自己参考一下吧。

ykcbf1100

字典排重汇总

1. Sub ykcbf()  '//2024.8.7
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, "a").End(3).Row
   
4.     arr = [a1].Resize(r, 5)
   
5.     st = [p1].Value
   
6.     ReDim brr(1 To r, 1 To 5)
   
7.     For i = 3 To UBound(arr)
   
8.         If arr(i, 3) = st Then
   
9.             s = arr(i, 1) & "|" & arr(i, 2)
   
10.             If Not d.Exists(s) Then
    
11.                 m = m + 1
    
12.                 d(s) = m
    
13.                 For j = 1 To UBound(arr, 2)
    
14.                     brr(m, j) = arr(i, j)
    
15.                 Next
    
16.             Else
    
17.                 r = d(s)
    
18.                 brr(r, 5) = brr(r, 5) + arr(i, 5)
    
19.             End If
    
20.         End If
    
21.     Next
    
22.     [h3].Resize(m, 5) = brr
    
23.     Set d = Nothing
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

sdytsxd991122

work_01 发表于 2024-8-7 10:33
此处运行时出现类型不匹配

work_01

谢谢4楼的大哥，5楼的大哥，那我这个应怎么定义

work_01

我只想只知道我这段代码中最后一句为什么会出现运行错误：类型不匹配？哪位大神帮忙解释一下

ykcbf1100

work_01 发表于 2024-8-7 15:56
我只想只知道我这段代码中最后一句为什么会出现运行错误：类型不匹配？哪位大神帮忙解释一下

很简单的一件事被你写得那么复杂，先是t数组，再是brr数组，再是crr数组，再是frr数组，最后再来个hrr数组。你知道自己在干什么吗？本来一个数组就解决的问题。
如果你这样学字典，肯定会学废的。

ynzsvt

1. Sub 字典练习()
   
2. Dim d As New Dictionary
   
3. Dim brr() As String
   
4. Dim crr() As String
   
5. Dim frr
   
6. Dim hrr
   
7. arr = Sheet3.Range("a2", Cells(Rows.Count, 5).End(xlUp))
   
8. For i = 2 To UBound(arr)
   
9.   If d.Exists(arr(i, 1)) Then
   
10.    d(arr(i, 1)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5) + d(arr(i, 1))(3))
    
11. 
    
12.   Else
    
13.    d(arr(i, 1)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5))
    
14. 
    
15.   End If
    
16. Next
    
17. t = d.Items
    
18. t = WorksheetFunction.Transpose(WorksheetFunction.Transpose(d.Items))
    
19. ReDim brr(1 To UBound(t))
    
20. For j = 1 To UBound(t)
    
21.   brr(j) = Join(Array(t(j, 1), t(j, 2), t(j, 3), t(j, 4), t(j, 5)), "|")
    
22. Next
    
23. 
    
24. crr = Filter(brr, Sheet3.Range("p1"))
    
25. 
    
26. 
    
27. ReDim frr(1 To UBound(crr) + 1)
    
28. 
    
29. For k = 0 To UBound(crr)
    
30.   frr(k + 1) = Split(crr(k), "|")
    
31. Next
    
32. 
    
33. hrr = Application.WorksheetFunction.Transpose(frr)
    
34. End Sub

复制代码

work_01

8楼大哥，是初学正练习，学了一段后不知道问题出在哪教一，