知名路人 发表于 2021-9-21 10:16:00

去掉空格提取内容

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

遥远君 发表于 2021-9-21 19:36:39

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

龙马精神发大财 发表于 2021-9-27 09:12:06

Sub 统计()
Dim ar, br(), m, i
= 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
.Resize(n, UBound(ar, 2)) = br
End Sub

照歌歌 发表于 2021-9-27 12:19:59

去掉空格提取内容

宝泉隆庆 发表于 2021-9-29 06:39:53

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

三建右下拉

吃饭挑大碗 发表于 2021-9-29 08:13:03

好像不对啊

流氓猪大 发表于 2021-9-30 19:58:50

看错了，撤回。

连回忆都不能 发表于 2021-10-1 14:15:36

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

喵那个咪 发表于 2021-10-11 14:46:27

http://127.0.0.1/data/attachment/forum/202202/08/155228rm082i372r8oz01z.png
经过测试能达到最终结果。

刘小海 发表于 2021-10-16 22:31:43

=FILTER(B2:F12,B2:B12<>"")
页: [1] 2 3
查看完整版本: 去掉空格提取内容