- Sub aaa()
- Dim arr, brr, crr, i&, j&, n&
- arr = [a1].CurrentRegion
- n = Application.Sum(Application.Index(arr, , 3))
- ReDim brr(1 To n * 10, 1 To UBound(arr, 2))
- n = 0
- For i = 1 To UBound(arr)
- crr = Split(arr(i, 4), ",")
- For j = 0 To UBound(crr)
- If crr(j) = "" Then Exit For
- n = n + 1
- brr(n, 1) = arr(i, 1)
- brr(n, 2) = arr(i, 2)
- If j = 0 Then brr(n, 3) = arr(i, 3)
- brr(n, 4) = crr(j) & ","
- Next j
- Next i
- Sheets(1).[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
- End Sub
复制代码 |