逐列循环遍历单元格，并将所有值存储在一个变量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 '~~> [e-mail]; [e-mail]; etc...
End Sub