- 帖子
- 44
- 主題
- 22
- 精華
- 0
- 積分
- 79
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-1-22
- 最後登錄
- 2017-5-9
|
參考板上文章試寫一段資料剖析後刪除空白列的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 |
|
發表於 2013-5-5 22:40
| 
