[算表]如何快速刪掉大量空白格

[earlywinter (earlywinter)]

軟體:excel

版本:2016
小弟目前有一個很大量資料的檔案，但空白格很多
想把空白個刪掉並讓下面資料往上推如例圖
https://imgur.com/tDvXUXF
資料有時會有一整欄都是空白，還是要維持不能刪掉
好像需要用VBA寫，但爬了一下還是不太會，
請教大大如何寫才快速呢

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.177.120.98
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1537862543.A.0EE.html
→ soyoso: 選取欄位，ctrl+g或f5，特殊，空格，右鍵，刪除，下方儲存
→ soyoso: 格上移
→ earlywinter: 可是我資料很多欄，有一萬多欄...
→ soyoso: a欄左側和第1列上方有工作表儲存格全選，全選後再以上述步
→ soyoso: 驟刪除，試試
→ soyoso: 或是知道起迄欄號的話，也可ctrl+g或f5開啟視窗，於參照位
→ soyoso: 址處打上如a:xfd方式
→ soyoso: 其他選取上另有選取範圍內資料最左上有值儲存格再按下ctrl
→ soyoso: +shift+end
→ earlywinter: 會當機，在找空白格時就當了
→ earlywinter: 我有找到一個刪除A欄的VBA程式碼，要怎麼讓它繼續用
→ earlywinter: 它欄，另外我知道最後一欄是ALM欄。
→ earlywinter: 程式碼在這https://imgur.com/bkmXHKh
→ soyoso: https://i.imgur.com/eC20kNH.jpg 類似這樣
→ earlywinter: 照你的程式打了之後，假設我A、B欄是空白，C欄的東西
→ earlywinter: 往左移到A欄了，其他也是跟著往左。
→ soyoso: https://youtu.be/Rl5Z9xzpNa4 測試了a、b欄是空白，c欄的
→ soyoso: 資料並不會往左移，而是往上移
→ earlywinter: OK了!!感謝soyoso大大，但我電腦太爛都要跑超久，且
→ earlywinter: 是在我把檔案弄成1000筆，有方法讓他加快EX：連續遇
→ earlywinter: 連續遇到4格空格就換下一欄這樣。感謝大大了
→ soyoso: 2個方式來調整效率 https://i.imgur.com/ytxkV7J.jpg
→ soyoso: 10000為列數，1001為欄數a:alm，工作表4為輸出的工作表名
→ soyoso: 稱，看要輸出到那個工作表就改以該工作表名稱
→ soyoso: 目的是將判斷非空白儲存格的資料，輸出在其他工作表的儲存
→ soyoso: 存格內