VBA里合并单元格如何编写

Question

如何把“数据”sheet中A1、B1合并后在“输出”sheet的A2显示；sheet中A2、B2合并后在“输出”sheet的A3显示，等等....
在VBA里如何编写代码？

Answer 1

Sub 汇总()
Dim i, arr
arr = Worksheets("数据").[A1:B21]
With Worksheets("输出")
    For i = 1 To UBound(arr)
        .Cells(i + 1, 1) = arr(i, 1) + arr(i, 2) '在“输出”工作表的A列进行求和
        .Cells(i + 1, 2) = arr(i, 1) & arr(i, 2) '在“输出”工作表的B列进行合并
    Next i
End With
End Sub

结果运行示例：由于不清楚楼主是哪种“合并”，在此处附上了2种不同的结果，供参考！

Answer 2

Sub strMerge()
    Dim i As Integer
    Dim str As String
    Worksheets("数据").Activate
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        str = Worksheets("数据").Cells(i, 1).Text & Worksheets(1).Cells(i, 2).Text
        Worksheets("输出").Cells(i + 1, 1).Value = str
    Next i
End Sub

运行代码，“输出”sheet的A2显示12，A3显示35.....

本回答被提问者采纳