求一公式：多维数据转为一维数据。LAMBDA学习方法最佳！

hxj119 · 发表于 2024-7-4 15:07

=HSTACK(TOCOL(IF(B3:G7<>"",B2:G2,A),3),TOCOL(B3:G7,1))

hcm19522 · 发表于 2024-7-4 16:01

M3:N18{=IFERROR(INDIRECT(TEXT(RIGHT(SMALL(IF($B$3:$G$7>0,IF(B$2=$B$2,ROW(3:7)*100+2,ROW($3:$7))/1%+COLUMN($B:$G)),ROW(A1)),4)*1,"!R0C00"),),"")

飞天篮球猪 · 发表于 2024-7-5 09:07

celexcel2017 · 发表于 2024-7-5 10:09

hxj119 发表于 2024-7-4 15:07
=HSTACK(TOCOL(IF(B3:G7"",B2:G2,A),3),TOCOL(B3:G7,1))

问个事，TOCOL(IF(B3:G7<>"",B2:G2,A),3)
这个 A 放在这里是什么意思？
如果不放的话，就会出现空格

micch · 发表于 2024-7-5 10:27

=DROP(TEXTSPLIT(CONCAT(IF(B3:G7="","",B2:G2&","&B3:G7&";")),",",";"),-1)

复制代码

tqlld · 发表于 2024-7-5 10:55

先试一个
=HSTACK(TOCOL(IF(B3:G7<>"",B2:G2,1/0),3),TOCOL(B3:G7,1))

zhangcheng6688 · 发表于 2024-7-5 12:40

本帖最后由 zhangcheng6688 于 2024-7-5 13:32 编辑

学习一下数组，打扰了
Sub test()
arr = [b2].CurrentRegion
ReDim brr(1 To 10000, 1 To 2)
For i = 2 To UBound(arr)
For j = 1 To UBound(arr, 2)
   If arr(i, j) <> "" Then
      m = m + 1
      brr(m, 1) = arr(1, j)
      brr(m, 2) = arr(i, j)
   End If
Next
Next
[j3].Resize(m, 2) = brr
End Sub

		自动登录	找回密码
密码			免费注册

[已解决] 求一公式：多维数据转为一维数据。LAMBDA学习方法最佳！

评分

评分