将一组记录分解

Office

现在的数据一行是一组记录。想按数量分解成单条记录。谢谢！

liulang0808

建议楼主补充说明下，第三行该怎么拆分？A列都有重名了

Office

A列允许有重名。下面的几行与一二行是一样的。拆分四个A中间的数字。

Office

求解！！！！！！！！

jiangxiaoyun

1. Sub vfvf()
   
2.     Dim arr, brr(1 To 66666, 1 To 3)
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         x = Val(Split(arr(i, 1), "_")(1))
   
6.         y = Val(Mid(arr(i, 3), 8, 5))
   
7.         For j = 1 To arr(i, 2)
   
8.             k = k + 1
   
9.             brr(k, 1) = Split(arr(i, 1), "_")(0) & "_" & x + j - 1
   
10.             brr(k, 2) = j
    
11.             brr(k, 3) = Left(arr(i, 3), 7) & Format(y + j - 1, "00000") & "AA"
    
12.         Next
    
13.     Next
    
14.     [k2].Resize(k, 3) = brr
    
15. End Sub
    

复制代码