快速尋找活頁中是否有合併儲存格

clio

Hi 各位大大，
小弟想請教一個問題，就是如何能快速找到活頁中，存在合併儲存格的方法？
因為小弟發現在排序前，若是沒有確認範圍內是否有合併儲存格，則可能產生錯誤，但是又找不到有方法，可以快速確認的，不知道各位前輩有沒有好的方法，感謝您。

naruto018

回復 1# clio

可以利用Range的MergeCells 屬性
    會回傳該範圍是否含有合併儲存格
回傳
True  ：該範圍是合併儲存格
False ：該範圍不含合併儲存格
Null  ：該範圍含有合併儲存格和非合併儲存格

clio

回復 2# naruto018
感謝大naruto018的回覆，我知道這個方法，只是他需要一個個Range的確認，我有找到另一個方法互相交流一下，可以用Excel 裡面Find的功能，選儲存欄位格式，就能找到妳指定的格式欄位
很感謝您的回覆，感謝您

leiru

回復 3# clio


    可否請教用find函數如何設定尋找合併儲存格,謝謝

a5007185

回復 4# leiru

使用VBA的話，這個方法給你參考。
你可以將這個巨集設定快捷鍵，
這樣使用上可能會更方便。

1. Sub FindMerge()
   
2.     Application.FindFormat.Clear
   
3.     Application.FindFormat.MergeCells = True
   
4.     Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
   
5.     SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True).Activate
   
6. End Sub

複製代碼

clio

回復 4# leiru
可以依下列圖示進行設定格式

下載 (51.7 KB)

2018-7-27 08:35

mhl9mhl9

回復 1# clio
我有個自己常用的函數,Set r = FindCells1([a1:d10], "MergeCells", True),可以找出[a1:d10]里合併儲存格,你可以試試,程式有點長,但range所有屬性都能找. 活頁簿1.rar (16.49 KB)

下載次數: 2

2018-8-4 02:10

Kubi

回復 1# clio
請參考

1. Sub SearchMerge()
   
2.     Dim cell As Range
   
3.     Dim arr()
   
4.     For Each cell In ActiveSheet.UsedRange
   
5.         If cell.MergeCells = True Then
   
6.             n = n + 1
   
7.             ReDim Preserve arr(1 To n)
   
8.             arr(n) = Replace(cell.Address, "$", "")
   
9.         End If
   
10.     Next cell
    
11.     If n <> "" Then MsgBox "共有下列 " & n & " 個合併儲存格：" & vbCr & Join(arr, vbTab)
    
12. End Sub

複製代碼

clio

回復 7# mhl9mhl9
已收到
感謝mhl9mhl9大大您的回覆

clio

回復 8# Kubi

已收到
感謝Kubi大大您的回覆，這個方法也是可以的，感謝您