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

我在一列中有一个值列表，我需要在一个变量中使用它。 我还需要在每个单元格值后面加一个域名

---

如何做到这一点？我试过数组和循环。令人困惑

下面是一个示例，假设您的值在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

---

请向我们展示（a）输入和预期输出的示例，以及（2）您目前正在努力使用的代码。大家好，alex，这些值按列存储在单元格中。对于eg:A1单元：abc单元B1:def。我想循环并存储所有这些值，将rrr.com附加到每个值，并用“；”分隔它们。。。还没有密码。不知道怎么做。因此，问题是，。你能举例说明结果应该是什么吗？例如，

A1:abc

变成

abc；rrr.com

？否。。abc@rrr.com; def@rrr.com等等，谢谢。但范围不是静态的，它将取决于图纸中现有的行。我会努力的。再次感谢您更新了代码，以便它计算出如果ws.Cells（i，2）.Text“”为i=2到Row的列中有多少行，如果InStr（1，ws1.Cells（j，2）.Text，ws.Cells（i，2）.Text，vbTextCompare）>0，那么对于k=3到8个ws.Cells（i，k）.Value=ws1.Cells（j，k）.值Next k Exit For End If Next j End If Next ii尝试自动将值从第2页粘贴到第1页，只需在第1页的第2列中键入或粘贴值，即第2页的vlook up值。。上面的代码似乎不起作用。帮助？你能以新问题的形式发布吗？感觉和你原来遇到的问题不一样。。。