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

openpc

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

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

openpc

感謝二位先進指教,實用好用, 真是獲益良多.

register313

回復 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

複製代碼

hugh0620

回復 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

複製代碼