土豆爷爷 发表于 2021-10-12 11:27:00

多区域转单列的通用公式

分享一个自己写的多区域转单列的通用公式。 写的比较复杂，也求大佬能提供更简单的方法。


尽在不言中 发表于 2021-10-18 01:00:00

用PQ吧，ToColumns（或者ToRows)，然后合并List，去空值（是否去重根据自己的需要来）

郑新生 发表于 2021-11-28 13:29:33

Sub test01()
Dim r As Range, A As Range, rn As Range
Dim d As Object

Set d = CreateObject("Scripting.Dictionary")
Set r = Columns("A:K").SpecialCells(xlCellTypeConstants, 23)
For Each A In r.Areas
For Each rn In A
    d(rn.Value) = Empty
Next
Next
Range("O5").Resize(d.Count) = WorksheetFunction.Transpose(d.keys())
End Sub

我是阿帮啊 发表于 2021-12-15 21:20:22

=INDIRECT(TEXT(SMALL(IF(A$1:K$124>0,ROW($1:$124)/1%+COLUMN(A:K),99999),ROW(A1)),"R0C00"),)
数组三键下拉。

谢家宝树 发表于 2021-12-20 06:20:20

谢谢大佬赐教

南陈 发表于 2022-1-8 16:49:28

谢谢大佬赐教
页: [1]
查看完整版本: 多区域转单列的通用公式