按列循环遍历单元格并将所有值存储在单个变量中 - Excel VBA

Question

我在一个列中有一个值列表，我需要在一个变量中。 此外，我需要为每个单元格值附加一个域名。

怎么办？我试过数组和循环。混乱。

Answer 1

以下是假设您的值位于A列中的示例：

Sub DomainNames()
    Dim cl As Range, var As String

    For Each cl In Range("A1:A" & Range("A1").End(xlDown).Row)
        var = var & cl & "@rrr.com; "
    Next cl

    Debug.Print var '~~> abc@rrr.com; def@rrr.com; etc...
End Sub