注册    登录
今天看啥  ›  专栏  ›  完美Excel

删除多行多列中的空单元格并重新整理数据

完美Excel  · 公众号  · Excel  · 2024-05-07 07:30
学习Excel技术，关注微信公众号：excelperfect标签：VBA这是在www.vbaexpress.com中看到的一个示例，个人觉得代码很有代表性，特辑录于此，与大家共享。示例数据如下图1所示。图1想要删除行和列中的空单元格，变成如下图2所示。图2可以使用下面的VBA代码：Sub DeleteEmpty() Dim r As Long, c As Long Dim rLast As Range, rData As Range, rEnd As Range Application.ScreenUpdating = False With ActiveSheet   Set rLast = .Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False)    Set rData = Range(.Cells(1, 1), rLast) With rData '删除空字符串使之成为真的空单元格     .Replace What:="", Replacement:="###", LookAt:=xlPart     .Replace What:="###", Replacement:="", LookAt:=xlPart '删除空列 For c = .Colum ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  TEXTJOIN，字符合并离不了
昨天
完美Excel  ·  探讨：通过字符串参数动态调用过程
2 天前
Excel之家ExcelHome  ·  Excel中的动态下拉菜单，你会用吗？
5 天前
Excel之家ExcelHome  ·  这些舍入函数，都会用的请举手
5 天前
完美Excel  ·  第17次进工地
6 天前
恺思俱乐部  ·  【福利】金帝·新道蓝谷-恺思“卓越人才奖学金”（第十七期）公益资助，重磅发布！
1 年前
今靖江  ·  事关医保！靖江两部门联合发文
2 年前
花儿小草  ·  第一次怀孕没什么经验，让大家爆笑了哈哈哈哈哈哈哈哈哈
4 年前
Cody带你玩武汉  ·  嘿～武汉开了家，出片率超高的巴士咖啡馆！！！
4 年前
采采  ·  ▷段子来了丨你说你喜欢海，那为什么嫌弃我的地中海？
5 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号