忽略空格按指定个数提取数据

cjc209

gxx75 发表于 2018-8-18 15:26
=TEXTJOIN(,1,MOD(SMALL(IFERROR(IF(N($A$5:$A$60000""),$A$5:$A$60000,"")+(1000*(ROW($5:$60000)-4)),"") ...

你的公式mod +行号的千倍这两处用的灵活 赞一个

cjc209

这个3*(ROW(A1)-1)+{1;2;3} 也构造的妙 3处还可以引用 更好更灵活

gxx75

cjc209 发表于 2018-8-18 16:49
这个3*(ROW(A1)-1)+{1;2;3} 也构造的妙 3处还可以引用 更好更灵活

谢谢老师点评。向你学习

niko88819

自定义函数，借用老师们公式中某部份精华一用,14楼代码也非常好用呀

非常奇怪，附件没办法保存代码？


Public Function ConTxt(ParamArray args() As Variant) As Variant
Dim tmptext As Variant, i As Variant, cellv As Variant
Dim cell As Range
tmptext = ""
For i = 0 To UBound(args)
If Not IsMissing(args(i)) Then
Select Case TypeName(args(i))
Case "Range"
For Each cell In args(i)
tmptext = tmptext & cell
Next cell
Case "Variant()"
For Each cellv In args(i)
tmptext = tmptext & cellv
Next cellv
Case Else
tmptext = tmptext & args(i)
End Select
End If
Next i
ConTxt = tmptext
End Function