熱門Ptt文章

[爆卦]VBA split 空白是什麼？優點缺點精華區懶人包

為什麼這篇VBA split 空白鄉民發文收入到精華區：因為在VBA split 空白這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者paces (幸福從來就不屬於惡魔的~)看板Office標題[算表] 資料剖析後刪除空白列VBA...

作者paces (幸福從來就不屬於惡魔的~)
看板Office
標題[算表] 資料剖析後刪除空白列VBA
時間Sun May 5 23:39:47 2013

軟體: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
→ soyoso:http://goo.gl/dqUQi 試試 05/06 09:29
→ paces:請問如果想把它放在常用命令列做一個快速存取的小圖示 05/06 23:48
→ paces:按一下即可執行，又該如何作業呢？ 05/06 23:48
→ soyoso:上面連結原檔下，寫在ThisWorkbook內，會出現在增益集內 05/07 08:42
→ paces:我不太了解？請教是出現在增益集還是巨集？ 05/07 23:40
→ paces:那重新開啟新工作表後按鍵不就無法作用了？還是要宣告public 05/07 23:42
→ soyoso:程式在VBE內，按鈕在增益集http://goo.gl/YkAtk 05/08 09:24
→ soyoso:如果不限這個檔案使用的話，就用增益集(xla)方式 05/08 09:28

你可能也想看看

搜尋相關網站