合并单元格值在选定范围内

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