[算表]如何快速刪掉大量空白格 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為輸出的工作表名稱，看要輸出到那個工作表就改以該工作表名稱目的是將判斷非空白儲存格的資料，輸出在其他工作表的儲存存格內

繼續閱讀