麻辣家族討論版版 » Excel程式區 » 請問如何在範圍內尋找多個已被合併的儲存格呢?

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-3-23
最後登錄: 2015-8-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-3-23 17:21 | 只看該作者

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

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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-3-23 17:56 | 只看該作者

回復 1# tw123456789

Sub nn()
Dim a As Range, rng As Range
For Each a In ActiveSheet.UsedRange
If a.MergeCells Then
If rng Is Nothing Then
Set rng = a.MergeArea
Else
If Intersect(a, rng) Is Nothing Then Set rng = Union(rng, a.MergeArea)
End If
End If
Next
If Not rng Is Nothing Then MsgBox rng.Areas.Count
End Sub

複製代碼

學海無涯_不恥下問

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-3-23
最後登錄: 2015-8-17

3^#

發表於 2011-3-24 16:35 | 只看該作者

超強的啦~~~~
整個就是很佩服…讚

中學生 Rank: 2

帖子: 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

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-3-23
最後登錄: 2015-8-17

5^#

發表於 2012-8-17 10:10 | 只看該作者

謝謝Hsieh …解除我的難題
chin15 ----選尋找格式，選在儲存格中選取<---這個看不懂耶…請問該怎做呢?

超級版主 Rank: 8 Rank: 8

帖子: 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

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題