去掉空格提取内容

吴雪友

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<>"")

祁汉

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

学会放下自己

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