刪一整列時, 如何避開合併上下列的儲存格 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 刪一整列時, 如何避開合併上下列的儲存格

返回列表下一主題上一主題發帖

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

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 »

發表於 2012-3-15 09:57 | 顯示全部帖子

回復 1# openpc

樓主~ 這個可能是你需要的功能~
我有測試過了~ 500筆數據大概跑30sec

Sub ee()
Dim E As Range
For i = 500 To 1 Step -1
If Application.CountA((Rows(i))) = 0 Then
For j = 1 To 256
If Cells(i, j).MergeCells = True Then
GoTo 1
End If
Next
Rows(i).Delete
1
End If
Next
End Sub

複製代碼

學習才能提升自己

靜思自在 : 時時好心就是時時好日。

返回列表下一主題上一主題