- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
你好：
請試試是否可行
Sub aa()
Dim mSht As Worksheet
Dim mRng As Range
Set mSht = Worksheets(1)
With mSht
Set mRng = .UsedRange.SpecialCells(xlCellTypeBlanks)
mRng.Delete
End With
End Sub |
|
發表於 2010-7-27 07:20
| 