[已解决]我需要一个函数公式，有点难度。能解决我可以发红包

不会死星人

我需要根据 货物名字和货物数量，自动生成货物编号。因为货物品种很多，然后的话件数可能上百，我需要一个函数公式自动求得编号如图

最佳答案

月排行榜 / 总排行榜

老司机带带我

2017-2-5 20:37

该用VBA的时候还是要用VBA的

1. Sub dd()
   
2.     Dim i&, j&, n&, s$
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         For i = 2 To n
   
6.             For j = 1 To .Cells(i, 2)
   
7.                 s = s & .Cells(i, 1) & "-" & j & ","
   
8.             Next
   
9.             .Cells(i, 3) = Left(s, Len(s) - 1)
   
10.             s = ""
    
11.         Next
    
12.     End With
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

蝶·舞

根据你的实际情况，可以负责任地说，纯函数基本无解

老司机带带我

该用VBA的时候还是要用VBA的

1. Sub dd()
   
2.     Dim i&, j&, n&, s$
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         For i = 2 To n
   
6.             For j = 1 To .Cells(i, 2)
   
7.                 s = s & .Cells(i, 1) & "-" & j & ","
   
8.             Next
   
9.             .Cells(i, 3) = Left(s, Len(s) - 1)
   
10.             s = ""
    
11.         Next
    
12.     End With
    
13. End Sub
    

复制代码

不会死星人

老司机带带我 发表于 2017-2-5 20:37
该用VBA的时候还是要用VBA的

虽然没有解决但是还是给你个最佳，辛苦了。如果谁能用函数解决请联系我