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

我试图创build一个简单的macros（因为我有一些重复的工作），将合并（但不合并在连接两个单元的Excel方式，但将其余的单元格的值移到第一个）值。 我以为我可以通过select循环，并与第一个符号第二个单元格，然后第三个到第一个等。 所以我有这样的东西：

Sub scal() Dim rng As Range Dim cell As Range Set rng = Selection For Each cell In rng 'code here Next cell End Sub 

用这种方法我可以把每个单元格搞成一个整体，但是我怎样才能合并（再一次不合并 – 像合并两个单元格一样，而是把一个单元格的价值移动到另一个单元格）？

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