[發問] 請問如何一次合併儲存格

各位大大好，

想請問如何操作EXCEL，將A欄的種類變成是像是E欄那樣的顯示方式呢?

再請各位協助，謝謝大家。

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

2^#

發表於 2020-5-9 10:10 | 只看該作者

Sub 合併()
Dim T$, xR As Range, xH As Range
Application.DisplayAlerts = False
For Each xR In Range([A2], [A65536].End(xlUp))
If xR <> T Then Set xH = xR: T = xR
If xR(2) <> T Then Range(xH, xR).Merge
Next
End Sub

TOP

gaishutsusuru

中學生 Rank: 2

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

3^#

發表於 2020-5-9 11:43 | 只看該作者

本帖最後由 gaishutsusuru 於 2020-5-9 11:51 編輯

回復 2# 准提部林

謝謝准提大大提供的巨集寫法。關於這個巨集是可以操作的，但因為我後面幾欄會有寫公式，但因為合併後原本的儲存格不會保留了，所以公式變成會讀不到值。因此想請問有沒有辦法合併後仍保留原本各儲存格的值呢?

另外想請教2個問題：
(1) 如果要復原成未合併之前的樣子，亦即從欄E變成是欄A那樣的話，該如何寫巨集呢?

(2) 如果是手動用合併儲存格去操作合併的話，如何做才能保留原來各個的儲存格呢?(因為我手動用跨欄置中，都會顯示只保留左上角的值)

再麻煩您抽空提供想法，謝謝您。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

4^#

發表於 2020-5-9 13:12 | 只看該作者

回復 3# gaishutsusuru

Sub 合併()
Dim R&, i&, xA As Range, xZ As Range, T$, xH As Range
R = [A65536].End(xlUp).Row
Set xA = Range("A2:A" & R)
Set xZ = Range("Z2:Z" & R) '借用z欄當合併格
xA.Copy: xZ.PasteSpecial xlPasteFormats '複製格式到z欄
For i = 1 To xA.Count
If xA(i) <> T Then Set xH = xZ(i): T = xA(i)
If xA(i + 1) <> T Then Range(xH, xZ(i)).Merge
Next i
xZ.Copy: xA.PasteSpecial xlPasteFormats '複製格式到a欄
xA.Borders.LineStyle = 1 '加框線, 解除合併後仍保有框線
xZ.EntireColumn.Delete '清除z欄
End Sub

Sub 合併解除()
Range("A:A").UnMerge
End Sub

以後任何發帖要自行上範例檔, 免得別人還花時間做:

X0001.rar (7.7 KB)

=========================

TOP

gaishutsusuru

中學生 Rank: 2

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

5^#

發表於 2020-5-12 15:08 | 只看該作者

回復 4# 准提部林

謝謝准提大大的巨集。好的，下次發文前會附上檔案，謝謝您的提醒。

TOP