返回列表 上一主題 發帖

請問如何在範圍內尋找多個已被合併的儲存格呢?

tw123456789

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-3-23 
最後登錄
2015-8-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-23 17:21 | 只看該作者

請問如何在範圍內尋找多個已被合併的儲存格呢?

假設使用者在一工作表裡，任意地建立多個合併儲存格群，
該如何利用vba尋找這些已被合併的儲存格呢?
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-3-23 17:56 | 只看該作者
回復 1# tw123456789
  1. Sub nn()
  2. Dim a As Range, rng As Range
  3. For Each a In ActiveSheet.UsedRange
  4.   If a.MergeCells Then
  5.      If rng Is Nothing Then
  6.         Set rng = a.MergeArea
  7.         Else
  8.         If Intersect(a, rng) Is Nothing Then Set rng = Union(rng, a.MergeArea)
  9.      End If
  10.    End If
  11. Next
  12. If Not rng Is Nothing Then MsgBox rng.Areas.Count
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

tw123456789

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-3-23 
最後登錄
2015-8-17 
3#
發表於 2011-3-24 16:35 | 只看該作者
超強的啦~~~~
整個就是很佩服…讚

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
4#
發表於 2011-3-25 22:12 | 只看該作者
[版主管理留言]
  • 小誌(2011-3-25 22:43): 樓主已說是要用VBA了啦!!

可用尋找功能
選尋找格式，選在儲存格中選取，再選中一個合併儲存格
按全部尋找
1

評分人數

    • gong: 使用方式超熟練 超優金錢 + 2

TOP

tw123456789

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-3-23 
最後登錄
2015-8-17 
5#
發表於 2012-8-17 10:10 | 只看該作者
謝謝Hsieh …解除我的難題
chin15 ----選尋找格式，選在儲存格中選取<---這個看不懂耶…請問該怎做呢?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-8-17 11:31 | 只看該作者
回復 5# tw123456789

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題