[已解决]怎么把模块中多行文本加入变量？

水中游

请教下，怎么把模块中的多行文本加入变量呢？
比如：

Sub oo()
a1 = "百度"
a2 = "新浪"
a3 = "网易"

For i = 1 To 3
MsgBox "a" & i
next
end sub

我想要结果是：
MsgBox 百度
MsgBox 新浪
MsgBox 网易

这个结果确是：
MsgBox "a1"
MsgBox "a2"
MsgBox "a3"

请老师指导下，应该怎么写呢？


恩德

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-11-25 07:03

Sub oo()
Dim a(1 To 3)
a(1) = "百度"
a(2) = "新浪"
a(3) = "网易"

For i = 1 To 3
MsgBox a(i)
Next
End Sub
这样试试

跳转到最佳答案楼层

jiahb2001

Sub test()  ' 百度 新浪 网易 分别存放A1 A2 A3单元格
Dim Arr       '存放字符串
Dim Temstr As String
Dim i As Integer
For i = 1 To 3
    Temstr = Temstr + "-" + Range("A" & i)  
Next
Temstr = Right(Temstr, Len(Temstr) - 1)  '去掉最左边的-
Arr = Split(Temstr, "-")
For i = 1 To UBound(Arr) + 1
    Debug.Print Arr(i - 1)
Next
End Sub

苏子龙

Sub oo()
Dim a(1 To 3)
a(1) = "百度"
a(2) = "新浪"
a(3) = "网易"

For i = 1 To 3
MsgBox a(i)
Next
End Sub
这样试试

望帝春心

1. sheet1.range("a" & i)

复制代码

爱疯

模块中的多行文本

数据真的是存放在模块中吗？建议做一个附件，上传一下。

水中游

不好意思，那天晚上不知道为什么一直不能回复，后来忘了

水中游

爱疯 发表于 2016-11-25 08:09
模块中的多行文本

数据真的是存放在模块中吗？建议做一个附件，上传一下。

1. <div class="blockcode"><blockquote>Sub oo()
   
2. a1 = "百度"
   
3. a2 = "新浪"
   
4. a3 = "网易"
   
5. For i = 1 To 3
   
6. MsgBox "a" & i
   
7. Next
   
8. 
   
9. '原来是上面这样写的不行，后来发现下面这样也可以
   
10. aa = "百度#新浪#网易"
    
11. bb = Split(aa, "#") '列数组
    
12. 
    
13. For i = 0 To UBound(bb)
    
14. MsgBox bb(i)
    
15. Next
    
16. End Sub
    

复制代码

我这些本来是放在VBAProject (personal.xlsb) 这个下面的模块，不知道为什么每次放到sheet1 代码里面保存，再打开就没了