一行中去除空格，紧凑处理

数字迷 · 发表于 2018-4-19 14:39

一行中去除空格，紧凑处理，先谢

jivy1212 · 发表于 2018-4-19 14:42

=SMALL($C$1:$AE$1,COLUMN(A1)) 右拉那么规则可这样……

问山8828680 · 发表于 2018-4-19 14:46

INDEX(1:1,SMALL(IF($A$1:$AE$1="",999,$A$1:$AE$1),COLUMN(A1)))

幻想147 · 发表于 2018-4-19 14:47

B3=

=IFERROR(INDEX($1:$1,SMALL(IF($A$1:$AE$1<>"",COLUMN($A:$AE),4^8),COLUMN(A1))),"")

复制代码

袁勇 · 发表于 2018-4-19 14:52

复制代码

hcm19522 · 发表于 2018-4-19 17:51

=INDEX(1:1,SMALL(IF($A1:$AE1<>"",COLUMN($A:$AE),99),COLUMN(A1)))&""

yyfwmm · 发表于 2018-4-20 15:11

Sub aa()
  For i = 3 To 31
If Cells(1, i) <> "" Then
   s = s + 1
   Cells(4, s + 1) = Cells(1, i).Value
End If
  Next
End Sub

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

[求助] 一行中去除空格，紧凑处理