新人求助：第一列数据分列后转置到同一列，第二列数据根据第一列分出来的数量计算...

102576582

求一个VBA宏：把行标签的数据进行分列后转置，然后把金额根据同一行的数量计算平均值，数据见附件。
如下图：

liulang0808

1. Sub 按钮1_Click()
   
2.     arr = [a1].CurrentRegion
   
3.     brr = [a1].Resize(UBound(arr) * 10, 2)
   
4.     r = 1
   
5.     For j = 2 To UBound(arr)
   
6.         If InStr(arr(j, 1), "/") > 0 Then
   
7.             crr = Split(arr(j, 1), "/")
   
8.             For i = 0 To UBound(crr)
   
9.                 r = r + 1
   
10.                 brr(r, 1) = crr(i)
    
11.                 brr(r, 2) = arr(j, 2) / (UBound(crr) + 1)
    
12.             Next i
    
13.         Else
    
14.             r = r + 1
    
15.             brr(r, 1) = arr(j, 1)
    
16.             brr(r, 2) = arr(j, 2)
    
17.         End If
    
18.     Next j
    
19.     [h1].Resize(r, 2) = brr
    
20. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

102576582

liulang0808 发表于 2019-11-2 22:41

太感谢了，完美

micch

1. Sub test()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To 2, 1 To 1)
   
4.     For i = 2 To UBound(arr)
   
5.         ar = Split(arr(i, 1), "/")
   
6.         For Each a In ar
   
7.             brr(1, UBound(brr, 2)) = a
   
8.             brr(2, UBound(brr, 2)) = arr(i, 2) / (UBound(ar) + 1)
   
9.             ReDim Preserve brr(1 To 2, 1 To UBound(brr, 2) + 1)
   
10.         Next
    
11.     Next
    
12.     [e2].Resize(UBound(brr, 2), 2) = Application.Transpose(brr)
    
13. End Sub

复制代码