区域序号排成一列

vince01023 · 发表于 2024-10-16 12:04

如图，要把序号用函数排成一列，谢谢大佬。

edwin11891 · 发表于 2024-10-16 12:08

=TOCOL(A2:C5,3)

复制代码

zhangcheng6688 · 发表于 2024-10-16 12:18

学习一下数组
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To 10000, 1 To 1)
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(i, j)
   End If
Next
Next
[e2].Resize(m, 1) = brr
End Sub

hxj119 · 发表于 2024-10-16 12:43

本帖最后由 hxj119 于 2024-10-16 12:57 编辑

=TOCOL(IF(A2:C5="",0/0,A2:C5),3)

复制代码

沈默00 · 发表于 2024-10-16 12:46

三个空单元格，还是假空？

mykitami · 发表于 2024-10-16 12:53

=TOCOL(IF(A2:C5<>"",A2:C5,x),2)

hxj119 · 发表于 2024-10-16 13:00

本帖最后由 hxj119 于 2024-10-16 13:01 编辑

练习reduce

=REDUCE(A1,A2:C5,LAMBDA(x,y,IF(ISNUMBER(y),VSTACK(x,y),x)))

复制代码

acbczhhw · 发表于 2024-10-16 13:17

=TOCOL(A2:C5,3)

=TOCOL(A2:C5,1)

acbczhhw · 发表于 2024-10-16 13:24

hxj119 发表于 2024-10-16 13:00
练习reduce

这个方法很优秀，原始表格中空白的单元格是有空格的，这个办法直接解决了。

你是那块小饼干 · 发表于 2024-10-16 16:17

=TOCOL(A2:C5,3)

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

[求助] 区域序号排成一列

评分