用于合并两列单元格的宏

Question

我想创建一个宏，只有在A列中有数据时，才会将A列中的单元格与B列中的单元格合并。请帮助

Answer 1

你需要这样的东西吗？ 我假设A和B列已填充，并且我连接了单元格A中单元格A和B的值。

Sub concatenate()
Dim row As Integer
Range("A1").Select
row = 0
Do Until ActiveCell.Offset(row, 0).Value = ""
    ActiveCell.Offset(row, 0).Value = ActiveCell.Offset(row, 0).Value + ActiveCell.Offset(row, 1).Value
    row = row + 1
Loop
End Sub