Question

我试图创建一个简单的宏（因为我有一些重复的工作），它会合并（但不能以excel方式合并连接两个单元格，而是将其余单元格的值移动到第一个单元格）值。我以为我可以循环选择，然后加入＆amp; 符号第二个单元格到第一个，然后是第三个到第一个等等。所以我有这样的事情：

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

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

1 个答案: