合併多個儲存格至一個儲存格
Excel我們可以使用「&」來連接儲存格，但如果是好幾列儲存格想合併成一個儲存格呢？如下圖將「A列」儲存格合併至「C1」儲存格，中間以逗號
總不能一個一個「&」慢慢連接吧~會累死，以下帶你輕鬆使用VBA合併多個儲存格至一個儲存格。
輸入巨集
※輸入以下指令※
Sub 將多個儲存格合併成一個()
Dim 合併資料 As String
Dim 列 As Long
列 = Cells(Rows.Count, 1).End(xlUp).Row
合併資料 = “”
For Each A In Range(Cells(1, 1), Cells(列, 1))
合併資料 = 合併資料 & A.Value & “,”
Next A
Range(“C1”) = Left(合併資料, Len(合併資料) – 1)
End Sub
語法說明
Dim 合併資料 As String
‘宣告「合併資料」為「字串」形式
Dim 列 As Long
‘宣告「列」為「長整數」形式
列 = Cells(Rows.Count, 1).End(xlUp).Row
‘計算出最後一列之列數
合併資料 = “”
‘將合併資料代入空值(“”)
For Each A In Range(Cells(1, 1), Cells(列, 1))
‘A欄(A欄第一列至最後一列)中的所有元素(A)進行重複操作
合併資料 = 合併資料 & A.Value & “,“
‘將合併資料持續加入「A欄」儲存格數值並加上逗號(,)，即A1儲存格加逗號，再加A2儲存格以此類推
Range(“C1”) = Left(合併資料, Len(合併資料) – 1)
‘因最後會多一個逗號，將其去除
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則合併多個儲存格(A列)至一個儲存格(C1)。
最後再框選並複製，則得到合併多個儲存格的數值，且每一筆資料中間間隔逗號。
