作者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/m.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