我想知道是否可以从一个单元格中调出多个项目?我的空间非常有限,因此拥有一个包含所有信息的单元格将是一个很大的好处。例如,如果我有一个具有“Dog,2,5,8”的单元格,程序可以运行程序可以告诉它的含义并运行我的计算?提前谢谢你的帮助。
问问题
113 次
1 回答
0
正如@Tim Williams 所说,Split() 会做你想做的事。
Sub splitcell()
Dim TestString As String
TestString = CStr(Range("A3").Value)
Dim TestArray() As String
TestArray() = Split(TestString, ", ")
MsgBox (TestArray(0) & vbNewLine & TestArray(1) & vbNewLine & TestArray(2) & vbNewLine & TestArray(3))
End Sub
宏会给你这个消息框:
现在您可以使用 For 循环遍历 TestArray() 并执行您的逻辑。
在此处查看 MSDN 文档
这是另一个帖子
于 2013-09-24T17:56:33.620 回答