按数量重新并且相连，求助，紧急

dada6816066

hcm19522 发表于 2019-10-23 10:31
A2:A6=SUM(C$1:C1)+1

F2:F14=VLOOKUP(ROW(B1),A:B,2,1)&""

牛逼啊，请问这个思路是怎么样的

sucx007

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     已添加自定义 = Table.AddColumn(源, "gs", each {1..[数量]}),
   
4.     #"展开的“gs”" = Table.ExpandListColumn(已添加自定义, "gs"),
   
5.     删除的列 = Table.RemoveColumns(#"展开的“gs”",{"数量", "gs"})
   
6. in
   
7.     删除的列

复制代码

pq点击几下就可以完成

1055751654

思路一来挡不住，VBA代码来一波
Sub 数水果()
For y = 2 To 10000
    a = Cells(y, 2)
    b = Cells(y, 1) & " "
    c = Application.Rept(b, a)
    d = d & c
Next
   a = Split(d, " ")
    For i = 0 To UBound(a)
   s = s + 1
Cells(s, 4).Offset(6, 0) = a(i)
Next
End Sub

1055751654

本想改一下的，抓去审核了
加个注释，很简单的
Sub 数水果()
For y = 2 To 10000 '从第2行一直循环到第10000行
    a = Cells(y, 2) '把循环的每一行的第2列简化为a(赋给a)
    b = Cells(y, 1) & " " '把循环的每一行的第1列&一个空格赋给b
    c = Application.Rept(b, a) '调用工作表函数REPT，会函数的都懂得，也就是rept（a个b）
    d = d & c '把REPT的值连起来
Next
   a = Split(d, " ") '上面已经连起来了，剩下的就是拆分了
    For i = 0 To UBound(a)
   s = s + 1
Cells(s, 4).Offset(6, 0) = a(i) '把拆分之后的值从D7单元格读出来
Next
End Sub

624134745

D7输入=IFERROR(VLOOKUP(ROW(A1),IF({1,0},SUMIF(OFFSET($B$2,,,ROW($1:$4)),"<>"),$A$2:$A$5),2,0),D8)&""，公式摘抄星光老师的1篇帖子。

doraemonn

hcm19522 发表于 2019-10-23 10:31
A2:A6=SUM(C$1:C1)+1

F2:F14=VLOOKUP(ROW(B1),A:B,2,1)&""

我没想明白，你这个思路，能不能指导一下。我想了好久，我觉得这个办法很好。

寿司的骆驼

hcm19522 发表于 2019-10-23 10:31
A2:A6=SUM(C$1:C1)+1

F2:F14=VLOOKUP(ROW(B1),A:B,2,1)&""

好神奇，看的懂函数，看不懂思路555

doraemonn

寿司的骆驼 发表于 2020-5-6 13:52
好神奇，看的懂函数，看不懂思路555

是啊。高手啊！

hcm19522

doraemonn 发表于 2020-5-6 13:39
我没想明白，你这个思路，能不能指导一下。我想了好久，我觉得这个办法很好。

以10樓為例 :VLOOKUP(ROW(B1),A:B,2,1)-->後面 1 配合A列升序-->取ROW(B1)>=A列值 ,如 當ROW(B1)=2~8時均為 2  ;10~12均為10

若無 1  ROW(B1)=A列值 ,不同值 則錯誤  即ROW(B1)<>{1,2,9,10,13} 為錯

(無輔助) F2下拉 {=OFFSET(B$2,SUM(N(ROW(A1)>SUBTOTAL(9,OFFSET(C$2,,,ROW($1:$4))))),)&""

苍域

=INDEX(A:A,SMALL(IF(COLUMN(A:V)>=$B$2:$B$5,ROW($2:$5)),ROW(A1)))