[發問] 資料剖析後刪除空白列

paddyliu

參考板上文章試寫一段資料剖析後刪除空白列的VBA，
資料剖析以|符號斷行，但執行出現以下問題：
1.一直不斷執行迴圈
2.刪除空白列是一整列空白，但目前執行看起來是刪除空白列後下方儲存格會上移，
請高手指點哪裡錯誤？感激不盡！

Sub 剖析刪空()

For Each a In Range("A:A")

h = Split(a, "|", 30, vbDatabaseCompare)

    i = 1

    For Each b In h

    a.Offset(columnoffset:=i) = b

    i = i + 1
     
   Next
   
   With Range("A1: BB1000").SpecialCells(xlCellTypeBlanks).Delete

End With

Next

End Sub

paddyliu

回復 2# Hsieh

你好，舉例如下：

討債明細  一覽表
(空白列)
A125348 | 張小明 | $1235
V028684 | 陳大花 | $2598
(空白列)
V248514 | 章法華 | $7538
(空白列)
V425686 | 嚕啦啦 | $5485

我執行後變成&不斷迴圈

討債明細  一覽表
                   張小明  $1235
V028684  陳大花  $2598
V248514  章法華  $7538
V425686  嚕啦啦  $5485
V425686

但我要的結果是：
A125348  張小明  $1235
V028684  陳大花  $2598
V248514  章法華  $7538
V425686  嚕啦啦  $5485

paddyliu

回復 4# genes
感謝指教，這寫法雖然不會loop，
但刪空的資料會全部向上位移，
就同如我上方的例子，
                     張小明  $1235
V028684  陳大花  $2598
V248514  章法華  $7538
V425686  嚕啦啦  $5485
V425686
如果以我的寫法是要更改那一段呢？

paddyliu

回復 5# GBKEE
感謝GBKEE，領教了，但請問這可以試用於每張工作表嗎？
如我今日開新檔案插入新活頁簿就無法執行了耶？

paddyliu

回復 8# GBKEE
如果我想把它放在常用命令列→巨集→做一個快速存取的圖示在上方工具列，
以後只要按一下就可以執行，請問又該如何作業呢？
謝謝！