- 帖子
- 45
- 主題
- 1
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-4-16
- 最後登錄
- 2013-12-30
|
回復 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
|
|
發表於 2013-5-6 02:23
| 