標題: 合併儲存格 [打印本頁]

---

作者: caichen3    時間: 2012-3-9 10:33     標題: 合併儲存格

如何以程式碼插入合併儲存格呢？？

---

作者: register313    時間: 2012-3-9 12:09

回復 1# caichen3

Range("C1:E5").MergeCells = True

---

作者: caichen3    時間: 2012-3-9 13:50

假設先插入一列，並且想新插入的列是合併儲存格
now=Selection.Row
ActiveSheet.Rows(now).Insert
range("   ")

range內的變數我該如何寫呢？
謝謝喔！

---

作者: Hsieh    時間: 2012-3-9 14:23

回復 3# caichen3
要知道你要合併幾列幾欄?

---

作者: caichen3    時間: 2012-3-12 14:58

本帖最後由 caichen3 於 2012-3-12 15:03 編輯

假使我設定按一次按鈕，插入一列並且合併7行的儲存格呢？謝謝！

---

作者: register313    時間: 2012-3-12 17:36

回復 5# caichen3

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

---

作者: jean0165    時間: 2012-3-13 20:39

回復 6# register313


    按照上面的程式碼，將會合併左方七列儲存格，請問能設定合併左邊/右邊的儲存格嗎??

---

作者: Hsieh    時間: 2012-3-13 20:57

回復 7# jean0165

合併動作的程式碼必須了解你的基準點在哪?
這是如何取得合併範圍的必要條件
問題問得太過空洞，得不到正確解答

---

作者: register313    時間: 2012-3-13 21:40

回復 7# jean0165

設G10為原基準儲存格

Range([G10], [G10].Offset(a, b)).MergeCells = True
a:數值,a為正:表往下擴展之格數,a為負:表往上擴展之格數
b:數值,b為正:表往右擴展之格數,b為負:表往左擴展之格數

---

作者: jean0165    時間: 2012-3-13 22:02

回復 9# register313


    謝謝你的回覆!!

---

作者: Hsieh    時間: 2012-3-13 22:16

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

---

作者: c_c_lai    時間: 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 前輩的說明！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)