Excel精英培训网

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

[已解决]批量替换假空为真空

[复制链接]
发表于 2011-1-21 18:53 | 显示全部楼层 |阅读模式
5学分
本帖最后由 xdwy81129 于 2011-1-21 18:55 编辑

希望批量替换当前表(1个表)的假空为真空

如图,a列认定为假空,因为因为从[A7]向下选择最后一个单元格在31行,而不是在81行



批量替换假空.rar (6.51 KB, 下载次数: 32)

最佳答案

查看完整内容

不用循环,也来一个方法,选择一个该表中没有的字符,本程序以“@”为例:
发表于 2011-1-21 18:53 | 显示全部楼层
不用循环,也来一个方法,选择一个该表中没有的字符,本程序以“@”为例:

  1. Sub aa()
  2.     Sheets(1).UsedRange.Replace "", "@", xlWhole
  3.     Sheets(1).UsedRange.Replace "@", "", xlWhole
  4. End Sub
复制代码

评分

参与人数 1 +18 收起 理由
xdwy81129 + 18 很给力的答案和技巧,谢谢了,谢谢

查看全部评分

回复

使用道具 举报

发表于 2011-1-21 19:40 | 显示全部楼层    本楼为最佳答案   
重复发贴
For i% = 7 To 30
  If Cells(i, 1) = "" And (Not IsEmpty(Cells(i, 1))) Then Cells(i, 1) = Null
Next

评分

参与人数 1 +10 收起 理由
xdwy81129 + 10 虽然不是一次批量替换,但还是选定为最佳,.

查看全部评分

回复

使用道具 举报

发表于 2011-1-21 19:56 | 显示全部楼层
有点难度,只能灌水了
回复

使用道具 举报

 楼主| 发表于 2011-1-21 20:04 | 显示全部楼层
回复 青城山苦丁茶 的帖子

单元格上万行,几十列,怎么可以更快的批量的??

不是重复发帖,1个的学习判断

后面想一个一个判断来太慢,想寻最快的处理方法
回复

使用道具 举报

发表于 2011-1-21 20:09 | 显示全部楼层
主体有了,改成数组就成了嘛
回复

使用道具 举报

发表于 2011-1-21 20:14 | 显示全部楼层
支持一下楼主!
回复

使用道具 举报

 楼主| 发表于 2011-1-22 05:00 | 显示全部楼层
回复 青城山苦丁茶 的帖子

除了数组全部把所有的单元格循环完,还有没有其他更方便或者快的方法呢???????
回复

使用道具 举报

发表于 2011-1-22 08:18 | 显示全部楼层
  1. MsgBox Range("a8:b16,a17:a27").SpecialCells(4).Address(0, 0) & "是真空!"
复制代码
回复

使用道具 举报

发表于 2011-1-22 09:05 | 显示全部楼层
学习苦丁茶的代码
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-6-6 15:48 , Processed in 0.302178 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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