- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 119
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-23
              
|
回復 1# StanleyVic
基本上刪除儲存格必須由下往上逐一刪除
所以你應該用
for i =[A65536].end(xlup).row to 1 step -1
if cells(i,1)="" then cells(i,1).delete shift:=xlup
next
如果是空白儲存格並不是公式傳回空白
那用編輯/到/特殊/空白儲存格
做一次性刪除會快一點
這方法用錄製巨集就可以取得程式碼 |
|
發表於 2011-7-27 13:12
| 