追问一下，怎样从 A3开始到最后，通过逗号，把字段连接起来。并输入到A2单元格？

叶金海【电镀】

追问一下，怎样从 A3开始到最后，通过逗号，把字段连接起来。并输入到A2单元格？

xsy我可以很好

=TEXTJOIN(",",TRUE,$A$3:$A$100)

叶金海【电镀】

用VBA呢？怎样做，不确定单元格多少个哦

gwjkkkkk

1. [A2].Value = Application.Transpose(Range("A3", Cells(Rows.Count, "A").End(xlUp)))

复制代码

叶金海【电镀】

Sub 合并sql()
[a2] = Join(WorksheetFunction.Transpose(Range([a3], Cells(Rows.Count, 1).End(3))), ",")
End Sub

叶金海【电镀】

Sub 合并sql()
[a2] = Join(WorksheetFunction.Transpose(Range([a3], Cells(Rows.Count, 1).End(3))), ",")
End Sub

cidanji

[A2] = "=TEXTJOIN("","",TRUE,$A$3:$A$" & Cells(Rows.Count, 1).End(3).Row & ")"

cyq4896

请测试一下

叶金海【电镀】

Sub 合并()
    arr = Range("a3:a" & [a65536].End(3).Row)
    For i = 1 To UBound(arr)
        If Len(arr(i, 1)) Then s = s & "," & arr(i, 1)
    Next
    [a2] = Mid(s, 2)
End Sub
谢谢@grf1973  网友