Excel VBA中的多行连接宏

Excel VBA中的多行连接宏,excel,vba,Excel,Vba,我有一个包含x个姓名的电子表格,姓氏在a列,名字在B列。我正在尝试将它们连接起来,以获得整个姓名列表中同一列中的第一个(B)和最后一个(a)姓名。我想知道是否有人已经或者可以为此编写一个宏,这样它将在一列(“lastname”、“firstname”)中读取x次。谢谢 试试看: Sub NameGenerator() Dim N As Long, DQ As String N = Cells(Rows.Count, 1).End(xlUp).Row DQ = Chr(34

我有一个包含x个姓名的电子表格,姓氏在a列,名字在B列。我正在尝试将它们连接起来,以获得整个姓名列表中同一列中的第一个(B)和最后一个(a)姓名。我想知道是否有人已经或者可以为此编写一个宏,这样它将在一列(“lastname”、“firstname”)中读取x次。谢谢

试试看:

Sub NameGenerator()
    Dim N As Long, DQ As String
    N = Cells(Rows.Count, 1).End(xlUp).Row
    DQ = Chr(34)
    For i = 1 To N
        Cells(i, 3) = "(" & DQ & Cells(i, 2) & ", " & Cells(i, 1) & DQ & ")"
    Next i
End Sub

工作完美。非常感谢你!你试过什么?就这个问题而言,我怀疑是否有人会回答你。嗯,主要是因为“想知道是否有人已经或可以为此编写宏”。此网站上的人不会为您编写代码。如果你面对错误、问题等,有人愿意帮助你。如果你没有表现出任何努力,其他人也不会。