返回列表 上一主題 發帖

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

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-7-24 11:37 | 只看該作者

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

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

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
10#
發表於 2018-8-7 09:19 | 只看該作者
回復 8# Kubi

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

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
9#
發表於 2018-8-7 09:18 | 只看該作者
回復 7# mhl9mhl9
已收到
感謝mhl9mhl9大大您的回覆
clio

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
8#
發表於 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
複製代碼

TOP

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
7#
發表於 2018-8-4 02:11 | 只看該作者
回復 1# clio
我有個自己常用的函數,Set r = FindCells1([a1:d10], "MergeCells", True),可以找出[a1:d10]里合併儲存格,你可以試試,程式有點長,但range所有屬性都能找. 活頁簿1.rar (16.49 KB)
lmh

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
6#
發表於 2018-7-27 08:35 | 只看該作者
回復 4# leiru
可以依下列圖示進行設定格式
clio

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
5#
發表於 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
複製代碼

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
4#
發表於 2018-7-26 15:15 | 只看該作者
回復 3# clio


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

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
3#
發表於 2018-7-25 08:28 | 只看該作者
回復 2# naruto018
感謝大naruto018的回覆，我知道這個方法，只是他需要一個個Range的確認，我有找到另一個方法互相交流一下，可以用Excel 裡面Find的功能，選儲存欄位格式，就能找到妳指定的格式欄位
很感謝您的回覆，感謝您
clio

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
2#
發表於 2018-7-24 13:21 | 只看該作者
回復 1# clio

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

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題