去掉空格提取内容

知名路人

去掉空格提取内容（最好用公式）

去掉空格提取内容.rar (7.24 KB, 下载次数: 44)

2021-9-21 10:16 上传

点击文件名下载附件
去掉空格提取内容.rar

遥远君

使用公式的话，去公式板块吧

龙马精神发大财

Sub 统计()
  Dim ar, br(), m, i
[H2:L12] = Empty
  ar = Range("B2:F12")
  ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
  For i = 1 To UBound(ar)
  If Len(ar(i, 1)) Then
    m = 0
    n = n + 1
    For j = 1 To UBound(ar, 2)
      If Len(ar(i, j)) Then
      m = m + 1
      br(n, m) = ar(i, j)
      End If
    Next
  End If
  Next
  [H2].Resize(n, UBound(ar, 2)) = br
End Sub

照歌歌

去掉空格提取内容
去掉空格提取内容.rar (7.24 KB, 下载次数: 12)

2021-9-21 10:16 上传

点击文件名下载附件
去掉空格提取内容.rar

宝泉隆庆

=IFERROR(INDEX(B:B,SMALL(IF($B$2:$B$12<>"",ROW($B$2:$B$12),),ROW(A1))),"")

三建右下拉

吃饭挑大碗

好像不对啊

流氓猪大

看错了，撤回。

连回忆都不能

=INDEX(B:B,SMALL(IF($B$2:$B$12="",99,ROW($2:$12)),ROW(A1)))&""数组三键下拉。

喵那个咪

经过测试能达到最终结果。

刘小海

=FILTER(B2:F12,B2:B12<>"")