12
返回列表 上一主題 發帖

合併儲存格

Hsieh

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

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
學海無涯_不恥下問

TOP

c_c_lai

帖子
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 前輩的說明！

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題