作者earlywinter (earlywinter)
看板Office
标题[算表]如何快速删掉大量空白格
时间Tue Sep 25 16:02:21 2018
软体:excel
版本:2016
小弟目前有一个很大量资料的档案，但空白格很多
想把空白个删掉并让下面资料往上推如例图
https://imgur.com/tDvXUXF
资料有时会有一整栏都是空白，还是要维持不能删掉
好像需要用VBA写，但爬了一下还是不太会，
请教大大如何写才快速呢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.177.120.98
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1537862543.A.0EE.html
1F：→ soyoso: 选取栏位，ctrl+g或f5，特殊，空格，右键，删除，下方储存 09/25 16:05
2F：→ soyoso: 格上移 09/25 16:05
3F：→ earlywinter: 可是我资料很多栏，有一万多栏... 09/25 16:20
4F：→ soyoso: a栏左侧和第1列上方有工作表储存格全选，全选後再以上述步 09/25 16:22
5F：→ soyoso: 骤删除，试试 09/25 16:22
6F：→ soyoso: 或是知道起迄栏号的话，也可ctrl+g或f5开启视窗，於参照位 09/25 16:26
7F：→ soyoso: 址处打上如a:xfd方式 09/25 16:27
8F：→ soyoso: 其他选取上另有选取范围内资料最左上有值储存格再按下ctrl 09/25 16:31
9F：→ soyoso: +shift+end 09/25 16:32
10F：→ earlywinter: 会当机，在找空白格时就当了 09/25 16:38
11F：→ earlywinter: 我有找到一个删除A栏的VBA程式码，要怎麽让它继续用 09/25 17:10
12F：→ earlywinter: 它栏，另外我知道最後一栏是ALM栏。 09/25 17:11
15F：→ earlywinter: 照你的程式打了之後，假设我A、B栏是空白，C栏的东西 09/25 17:44
16F：→ earlywinter: 往左移到A栏了，其他也是跟着往左。 09/25 17:44
18F：→ soyoso: 资料并不会往左移，而是往上移 09/25 17:58
19F：→ earlywinter: OK了!!感谢soyoso大大，但我电脑太烂都要跑超久，且 09/25 19:10
20F：→ earlywinter: 是在我把档案弄成1000笔，有方法让他加快EX：连续遇 09/25 19:11
21F：→ earlywinter: 连续遇到4格空格就换下一栏这样。感谢大大了 09/25 19:12
23F：→ soyoso: 10000为列数，1001为栏数a:alm，工作表4为输出的工作表名 09/26 01:16
24F：→ soyoso: 称，看要输出到那个工作表就改以该工作表名称 09/26 01:17
25F：→ soyoso: 目的是将判断非空白储存格的资料，输出在其他工作表的储存 09/26 01:19
26F：→ soyoso: 存格内 09/26 01:19