使用 VBA 添加带有分隔符的连接字符串 [重复]

Question

我正在尝试在此论坛中找到的各种代码，以便在每次运行程序时连接不同的范围。

我需要将 Range("B1") 中的值设置为特定范围的连接值（例如，A5 到最后一行，值在 col A 中）。连接的值也应该用“,”（即逗号和空格）分隔。

不重复的原因： 我需要将值显示在 Range("B1") 中，但我必须单独使用 vba 输入“Join”函数，并且不需要我在 B1 中键入 UDF。

A 中的范围具有不同的最后一行编号。取决于需要连接的记录。现有问题定义了确切的编号。行，而我需要一个灵活的代码。

谢谢。

Answer 1

与 & 连接（+ 也可以，但有时会导致问题）。

for each cell in range
    result = result & cell.value & ", "
next cell
' get rid of the last ", "
result = left(result, len(result)-2)

Answer 2

在 OP 澄清后编辑

你可以使用：

Range("B1").value = Join(Application.Transpose(Rng1), ", ")

您可能还想对您的代码进行以下重构：

Sub New_Segment()
    Dim Rng1 As Range, Rng2 As Range, c As Range

    With ActiveWorkbook.Worksheets("Mapping")
        Set Rng2 = .Range("A1:D" & .UsedRange.Rows(.UsedRange.Rows.Count).Row)
    End With

    With ActiveWorkbook.Worksheets("Segment Generator")
        Set Rng1 = .Range("A5", .Cells(.Rows.Count, "A").End(xlUp))
        For Each c In Rng1
            c.Offset(, 1) = Application.WorksheetFunction.VLookup(c, Rng2, 4, False)
        Next
        .Range("B1").value = Join(Application.Transpose(Rng1), ", ")
    End With
End Sub