返回列表 上一主題 發帖

刪一整列時, 如何避開合併上下列的儲存格

openpc

帖子
25 
主題
11 
精華
0 
積分
50 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-16 
最後登錄
2024-3-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-15 09:26 | 顯示全部帖子

刪一整列時, 如何避開合併上下列的儲存格

如下的寫法會將合併儲存格的下列視同空白而刪除, 請教先進刪一整列時, 要如何避開合併上下列的儲存格不被刪除, 感謝!

For i = 500 To 1 Step -1
        If Application.CountA((Rows(i))) = 0 Then
            Rows(i).Delete
        End If
Next
收藏 分享

openpc

帖子
25 
主題
11 
精華
0 
積分
50 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-16 
最後登錄
2024-3-7 
2#
發表於 2012-3-15 17:34 | 顯示全部帖子
感謝二位先進指教,實用好用, 真是獲益良多.

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題