excel - 在一个字符串中写入多个值

Question

我对 VBA 和 stackoverflow 都很陌生。所以请耐心等待;)。

我寻找解决方案但找不到。我的问题如下:

我有一列 (A)，其中包含名称，然后有一列 (B)，其中某些单元格包含“X”，而其他单元格则不包含。我想知道哪些名字旁边有一个“X”。

示例:

我现在想要在一个单元格中得到一个字符串作为结果。在此示例中:

Noah;Jacob;Elijah;Jayden

我还没有走多远。

For r = 1 To 20
    If Cells(r, 2) = "X" Then A = Cells(r, 1) Else
Next

然后“A”是“Noah”，我可以将其写入单元格中，但我希望它找到所有值，然后将它们组合起来，最好用 ; 分隔。在一个单元格中。

有人知道吗？

Answer 1

创建一个字符串变量，然后根据 B 列中的“X”将结果附加到该变量。以下是如何执行此操作的示例:

Sub Foo()

Dim i         As Integer
Dim result    As String

For i = 1 To 20
    If UCase(Cells(i, 2).Value) = "X" Then
        result = result & Cells(i, 1).Value & ";"
    End If
Next

'// output the result to C1
Range("C1").Value = Left$(result, Len(result) - 1)

End Sub