Board logo

標題: 快速尋找活頁中是否有合併儲存格 [打印本頁]
作者: clio    時間: 2018-7-24 11:37     標題: 快速尋找活頁中是否有合併儲存格

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

回復 1# clio

可以利用Range的MergeCells 屬性
    會回傳該範圍是否含有合併儲存格
回傳
True  ：該範圍是合併儲存格
False ：該範圍不含合併儲存格
Null  ：該範圍含有合併儲存格和非合併儲存格
作者: clio    時間: 2018-7-25 08:28

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

回復 3# clio


    可否請教用find函數如何設定尋找合併儲存格,謝謝
作者: a5007185    時間: 2018-7-26 15:28

回復 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    時間: 2018-7-27 08:35

回復 4# leiru
可以依下列圖示進行設定格式
[attach]29073[/attach]
作者: mhl9mhl9    時間: 2018-8-4 02:11

回復 1# clio
我有個自己常用的函數,Set r = FindCells1([a1:d10], "MergeCells", True),可以找出[a1:d10]里合併儲存格,你可以試試,程式有點長,但range所有屬性都能找.[attach]29136[/attach]
作者: Kubi    時間: 2018-8-6 12:01

回復 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    時間: 2018-8-7 09:18

回復 7# mhl9mhl9
已收到
感謝mhl9mhl9大大您的回覆
作者: clio    時間: 2018-8-7 09:19

回復 8# Kubi

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)