合併單元格值在選定範圍內

Question

我試圖創建一個簡單的宏（因爲我有一些重複的工作），將合併（但不合並在Excel中加入兩個單元格的方式，但將其餘單元格的值移到第一個一個）值。 我想我可以通過選擇循環，並加入&符號第二個單元格第一，然後第三到第一等。 所以我有這樣的事情：

Sub scal() 

Dim rng As Range 
Dim cell As Range 

Set rng = Selection 

For Each cell In rng 
    'code here 
Next cell 

End Sub 

這樣我可以maniopulate每個單元格，但我該怎麼辦合併（再次不合並，合併喜歡做兩個單元之一，但一個移動值等） ？

Answer 1

像這樣？

Sub scal() 
    Dim rng As Range 
    Dim cell As Range 
    Dim v As Variant 

    Set rng = Selection 
    For Each cell In rng 
     v = v & cell.Value 
    Next cell 
    rng.ClearContents 
    rng.Cells(1, 1) = v 
End Sub