如何把一行缩写的序列号拆分成多行？

拾鲤

发出产品的序列号是缩写的类似01-58（类似的每天都有几千条，想做个模板处理），现在想把它给拆成一个个单独的数据，想请问各位大神怎么操作？刚工作遇到了懵逼的难题。

拾鲤

原表忘发了。。。

sishuiren

1. Sub ping()
   
2.     Dim arr1, arr2(1 To 10, 1 To 6), x%, St, k%, y%, Lrow
   
3.     Lrow = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     arr1 = Range("a1:f" & Lrow)
   
5.     For x = 2 To UBound(arr1, 1)
   
6.         St = arr1(x, 2)
   
7.         For k = 1 To St
   
8.             y = y + 1
   
9.             arr2(y, 1) = arr1(x, 1)
   
10.             arr2(y, 2) = 1
    
11.             If k = 1 Then
    
12.                 arr2(y, 3) = VBA.Left(arr1(x, 3), 8)
    
13.             Else
    
14.                 arr2(y, 3) = VBA.Left(arr1(x, 3), 6) & VBA.Format(--(VBA.Mid(arr1(x, 3), 7, 2)) + k - 1, "00")
    
15.             End If
    
16.             arr2(y, 4) = arr1(x, 4)
    
17.             arr2(y, 5) = arr1(x, 5)
    
18.             arr2(y, 6) = arr1(x, 6)
    
19.         Next k
    
20.     Next x
    
21.     Range("i1").Resize(1, 6) = Array("产品规格", "数量", "序列号", "生产批号", "生产日期", "有效期")
    
22.     Range("i2").Resize(UBound(arr2, 1), 6) = arr2
    
23. End Sub

复制代码

varytina

Power query 方法供楼主参考

tab001@126.com

如果数据比较有规律，也可以用“数据--分列”这个操作

拾鲤

sishuiren 发表于 2020-1-7 19:55

谢谢大神，我试试操作一下

拾鲤

varytina 发表于 2020-1-7 22:06
Power query 方法供楼主参考

这个功能还没用过，感谢大神提供的思路，我摸索下