Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 194|回复: 6

去掉空格提取内容

[复制链接]
发表于 2021-9-21 13:46 | 显示全部楼层 |阅读模式
去掉空格提取内容

去掉空格提取内容.rar

7.24 KB, 下载次数: 9

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-9-21 14:12 | 显示全部楼层
  1. Sub r_w()
  2. Dim arr
  3. Dim arr1(1 To 1000, 1 To 5)
  4. Dim i, j, k As Integer
  5. Dim sr As String
  6. Range("H2:L12").ClearContents
  7. arr = Range("B2:F12")
  8. For i = 1 To UBound(arr)
  9.     sr = ""
  10.     For j = 1 To UBound(arr, 2)
  11.         sr = sr & arr(i, j)
  12.     Next
  13.     If Len(sr) > 0 Then
  14.         k = k + 1
  15.         For j = 1 To 5
  16.             arr1(k, j) = arr(i, j)
  17.         Next
  18.     End If
  19.     sr = ""
  20. Next
  21. Range("h2").Resize(k, 5) = arr1
  22. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2021-9-21 14:15 | 显示全部楼层
回复

使用道具 举报

发表于 2021-9-21 14:18 | 显示全部楼层

365有这公式,其他版本想实现公式估计有点难,我不擅长,你只能等其他答案了

=UNIQUE(B2:F12)

评分

参与人数 1学分 +1 收起 理由
sanpiao + 1 学习了

查看全部评分

回复

使用道具 举报

发表于 2021-9-21 15:01 | 显示全部楼层
H2:L2 下拉 {=INDEX(B:B,SMALL(IF(MMULT(N($B$2:$F$12<>""),Z1:Z5+1),ROW($2:$12),99),ROW(A1)))&""
8864.png
回复

使用道具 举报

发表于 2021-9-21 20:54 | 显示全部楼层
H2
  1. =INDIRECT("R"&SMALL(IF($B$2:$B$12<>"",ROW($A$2:$A$12),99),ROW(A1))&"C"&COLUMN(B1),)&""
复制代码
回复

使用道具 举报

发表于 2021-9-22 09:43 | 显示全部楼层
=OFFSET($A$1,SMALL(IF($B$2:$B$12<>"",ROW($1:$11),99),ROW(A1)),COLUMN(A1))&""
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-10-20 09:06 , Processed in 0.845799 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表