合并单元格内容,代码结果有点小错误,求修改,谢谢！

feixiangye

想要当鼠标先选中AB两列再执行代码后：则A1&B1内容合并放在H列单元格中；选中3列:则=A1&B1&C1,以此类推,

我写的代码结果有点问题，求助帮忙修改代码，谢谢！

Sub 合并单元格内容()

    Dim arr, brr, i&, ms

    arr = [a1].CurrentRegion

    n = Selection.Columns.Count

    If n > 2 Then n = n Else n = 2

    brr = Range(Cells(1, 1), Cells(UBound(arr), n))

    For i = 1 To UBound(arr)

        For j = 1 To n

            ms = ms & arr(i, j)

        Next

        brr(i, 1) = ms

    Next

    Range("H1:H" & UBound(arr)) = brr

End Sub

獨一無2

我在Worksheet_SelectionChange中写了合并代码。

jiangxiaoyun

Sub 合并单元格内容()
    Dim arr, brr(), i&, ms
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 1)
    n = Application.InputBox(prompt:="请输出列数", Type:=1)
    For i = 1 To UBound(arr)
        For j = 1 To n
            brr(i, 1) = brr(i, 1) & arr(i, j)
        Next
    Next
   [i1].Resize(UBound(brr), 1) = brr
End Sub

改了一下

jiangxiaoyun

feixiangye

jiangxiaoyun 发表于 2018-7-14 16:48

终于知道哪里的问题了，非常感谢