返回列表 上一主題 發帖

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

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
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
554 
主題
57 
精華
0 
積分
620 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-9 
2#
發表於 2012-3-15 09:57 | 只看該作者
回復 1# openpc


    樓主~ 這個可能是你需要的功能~
   我有測試過了~ 500筆數據大概跑30sec
  1. Sub ee()
  2. Dim E As Range
  3. For i = 500 To 1 Step -1
  4.         If Application.CountA((Rows(i))) = 0 Then
  5.            For j = 1 To 256
  6.             If Cells(i, j).MergeCells = True Then
  7.                GoTo 1
  8.             End If
  9.            Next
  10.            Rows(i).Delete
  11. 1
  12.         End If
  13. Next
  14. End Sub
複製代碼
學習才能提升自己

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-3-15 10:54 | 只看該作者
回復 1# openpc
  1. Sub EE()
  2. For i = 500 To 1 Step -1
  3.   If Application.CountA((Rows(i))) = 0 And Not IsNull(Rows(i).MergeCells) Then
  4.      Rows(i).Delete
  5.   End If
  6. Next
  7. End Sub
複製代碼

TOP

openpc

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

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題