[算表]如何快速删掉大量空白格 earlywinter PTT批踢踢实业坊

楼主: earlywinter (earlywinter) 2018-09-25 16:02:21

软件:excel
版本:2016
小弟目前有一个很大量资料的档案，但空白格很多
想把空白个删掉并让下面资料往上推如例图
https://imgur.com/tDvXUXF
资料有时会有一整栏都是空白，还是要维持不能删掉
好像需要用VBA写，但爬了一下还是不太会，
请教大大如何写才快速呢

作者: soyoso (我是耀宗) 2018-09-25 16:05:00

选取字段，ctrl+g或f5，特殊，空格，右键，删除，下方储存格上移

楼主: earlywinter (earlywinter) 2018-09-25 16:20:00

可是我资料很多栏，有一万多栏...

作者: soyoso (我是耀宗) 2018-09-25 16:22:00

a栏左侧和第1列上方有工作表储存格全选，全选后再以上述步骤删除，试试或是知道起迄栏号的话，也可ctrl+g或f5开启视窗，于参照位址处打上如a:xfd方式其他选取上另有选取范围内资料最左上有值储存格再按下ctrl+shift+end

楼主: earlywinter (earlywinter) 2018-09-25 16:38:00

会当机，在找空白格时就当了

作者: soyoso (我是耀宗) 2018-09-25 17:27:00

楼主: earlywinter (earlywinter) 2018-09-25 17:44:00

照你的程式打了之后，假设我A、B栏是空白，C栏的东西往左移到A栏了，其他也是跟着往左。

作者: soyoso (我是耀宗) 2018-09-25 17:58:00

https://youtu.be/Rl5Z9xzpNa4 测试了a、b栏是空白，c栏的资料并不会往左移，而是往上移

楼主: earlywinter (earlywinter) 2018-09-25 19:10:00

OK了!!感谢soyoso大大，但我电脑太烂都要跑超久，且是在我把档案弄成1000笔，有方法让他加快EX：连续遇连续遇到4格空格就换下一栏这样。感谢大大了

作者: soyoso (我是耀宗) 2018-09-26 01:15:00

2个方式来调整效率 https://i.imgur.com/ytxkV7J.jpg10000为列数，1001为栏数a:alm，工作表4为输出的工作表名称，看要输出到那个工作表就改以该工作表名称目的是将判断非空白储存格的资料，输出在其他工作表的储存存格内

继续阅读