Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2134|回复: 1

[已解决]怎么删除单元格指定内容

[复制链接]
发表于 2017-5-28 23:42 | 显示全部楼层 |阅读模式

1111.jpg
比如A列有若干行数据,删除第一个数字之前的内容。A列行数未知,能否利用循环语句获取到有内容的单元格,不想选择整个A列。

谢谢大神。。0rz
最佳答案
2017-5-29 02:27
  1. Sub aaa()
  2. Dim y, ar, i, l
  3. y = Range("a65536").End(3).Row
  4. ar = Range("a1:a" & y)
  5. For i = 1 To UBound(ar)
  6.     l = Len(ar(i, 1))
  7.     For j = 1 To l
  8.         If Mid(ar(i, 1), j, 1) Like "#" Then
  9.             ar(i, 1) = Mid(ar(i, 1), j)
  10.         End If
  11.     Next j
  12. Next i
  13. Range("a1").Resize(UBound(ar), 1) = ar
  14. End Sub
复制代码


发表于 2017-5-29 02:27 | 显示全部楼层    本楼为最佳答案   
  1. Sub aaa()
  2. Dim y, ar, i, l
  3. y = Range("a65536").End(3).Row
  4. ar = Range("a1:a" & y)
  5. For i = 1 To UBound(ar)
  6.     l = Len(ar(i, 1))
  7.     For j = 1 To l
  8.         If Mid(ar(i, 1), j, 1) Like "#" Then
  9.             ar(i, 1) = Mid(ar(i, 1), j)
  10.         End If
  11.     Next j
  12. Next i
  13. Range("a1").Resize(UBound(ar), 1) = ar
  14. End Sub
复制代码


评分

参与人数 2 +10 收起 理由
ioi_chan + 1 来学习
laoau138 + 9 来学习

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 03:35 , Processed in 0.287019 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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