请问如何通过循环把几个变量复制给相应的单元格？

pureobscure

现在我有 str1, str2, str3, str4, str5，5个变量。我想把他们分别赋值给 B2：F2 五个单元格。然后再循环写入 B3：F3，然后再循环的时候再往下移动一行

请问如何写这个循环？

microyip

定义一个vData(1 To 5,1 To 1)数组，对应赋值Str1~Str5，然后[B2:B6]=vData，搞掂

大灰狼1976

不用循环可以吗

1. Sub test()
   
2. [b2:b6] = Application.Transpose(Array(str1, str2, str3, str4, str5))
   
3. End Sub

复制代码

pureobscure

大灰狼1976 发表于 2020-1-13 17:08
不用循环可以吗

高人啊，原来如此简单的代码就可搞定。。。

想要循环是因为如果 Str4 是空值的话，需要退出循环。不过又想了想，觉得不退出也没关系。

pureobscure

大灰狼1976 发表于 2020-1-13 17:08
不用循环可以吗

不好意思，试了试，发现还是得循环，因为第一次循环是把数据写入 B2：F2，第二次写入B3:F3, 第三次 B4：F4.。。。。。。。一直循环下去。我开始是这么想的：

r = Sheets("name list").[b1048576].End(xlUp).Row + 1

For i = 1 To 5
        Sheets("name list").Cells(r, (1 + i)).Value =   但是等号后面这部分不会写  
        If str5 = "" Then Exit Sub
Next i

pureobscure

microyip 发表于 2020-1-13 17:07
定义一个vData(1 To 5,1 To 1)数组，对应赋值Str1~Str5，然后=vData，搞掂

多谢，我试试，说实话，数组这部分一直没学明白