[算表] 資料剖析後刪除空白列VBA
軟體:Excel
版本:2007
參考網路上文章試寫一段資料剖析後刪除空白列的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
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.136.155
→
05/06 09:29, , 1F
05/06 09:29, 1F
→
05/06 23:48, , 2F
05/06 23:48, 2F
→
05/06 23:48, , 3F
05/06 23:48, 3F
→
05/07 08:42, , 4F
05/07 08:42, 4F
→
05/07 23:40, , 5F
05/07 23:40, 5F
→
05/07 23:42, , 6F
05/07 23:42, 6F
→
05/08 09:24, , 7F
05/08 09:24, 7F
→
05/08 09:28, , 8F
05/08 09:28, 8F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
5
21