資料剖析後刪除空白列 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 資料剖析後刪除空白列

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

1^# 跳轉到 »

發表於 2013-5-6 02:23 | 顯示全部帖子

回復 3# paddyliu

move delete command outside "for loop"?

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
Next
With Range("A1: BB1000").SpecialCells(xlCellTypeBlanks).Delete
End With
End Sub

複製代碼

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題