求助,VBA如何生成命名

kk123456k

求助 vba 代码实现如图片这样,A列的商品名,按B列的种类数,拆分生成多个商品名,多谢!如附件

568132828

sub doubi()
dim arr()
for i =2 to range("a65536").end(3).row
    for k =1 to cells(i,2)
        v=v+1
        redim preserve arr(1 to v)
        arr(v)=cells(i,1)& k
    next
next
range("e2").resize(v,1)=application.transpose(arr)
end sub

vbee

1. Sub test()
   
2. r = 1
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5. For j = 1 To arr(i, 2)
   
6.    r = r + 1
   
7.    Cells(r, 9) = arr(i, 1) & j
   
8.   Next j
   
9. Next i
   
10. End Sub

复制代码

qingc0221

1. Sub Main()
   
2.     Dim LastRow As Long, i As Long, j As Long, n As Long
   
3.     Dim Cnt As Long '统计商品种类
   
4.     Dim Data, Result()
   
5.    
   
6.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     Cnt = WorksheetFunction.Sum(Range("B2:B" & LastRow))
   
8.     Data = Range("A2:B" & LastRow)
   
9.     ReDim Result(1 To Cnt, 1 To 2)
   
10.     For i = 1 To LastRow - 1
    
11.         For j = 1 To Data(i, 2)
    
12.             n = n + 1
    
13.             Result(n, 1) = Data(i, 1) & j
    
14.             Result(n, 2) = 1
    
15.         Next j
    
16.     Next i
    
17.     Range("E2").Resize(Cnt, 2) = Result
    
18. End Sub

复制代码

zopey

商品命名2.zip (13.51 KB, 下载次数: 9)

2018-6-11 15:04 上传

点击文件名下载附件

kk123456k

好的,收到了,非常感谢感谢大家!!!

小饼干910326

568132828 发表于 2018-6-11 14:33
sub doubi()
dim arr()
for i =2 to range("a65536").end(3).row

学习了，真棒

小饼干910326

vbee 发表于 2018-6-11 14:38

受益受益，真棒