返回列表 上一主題 發帖

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

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

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

回復 1# clio

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

TOP

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

TOP

回復 3# clio


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

TOP

回復 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
複製代碼

TOP

回復 4# leiru
可以依下列圖示進行設定格式
2018-07-24_174149.png
2018-7-27 08:35
clio

TOP

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

TOP

回復 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
複製代碼

TOP

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

TOP

回復 8# Kubi

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

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題