合併儲存格 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 合併儲存格

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

合併儲存格

超級版主 Rank: 8 Rank: 8

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

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

11^# 跳轉到 »

發表於 2012-3-13 22:16 | 只看該作者

回復 10# jean0165
Range([G10], [G10].Offset(a, b)).Merge

學海無涯_不恥下問

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2012-4-7 17:42 | 只看該作者

Sub Test()
Selection.EntireRow.Insert
Range("A" & Selection.Row).Resize(1, 7).MergeCells = True
End Sub

'    A B C D E F G H I J K
' 1       b1
' 2       b2    * (執行前，游標此時停留在 D2 欄位)
' 3       b3
' 4       b4
' 5       b5
' 6

'    A B C D E F G H I J K
' 1       b1
' 2             * (執行完畢游標此時依然停留在 D2 欄位，然原本之 B2 欄位則下移一列，本行 A2:G2 則合併成一欄)
' 3       b2
' 4       b3
' 5       b4
' 6       b5

感謝 register313 前輩的說明！

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

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