0

我想知道是否可以从一个单元格中调出多个项目?我的空间非常有限,因此拥有一个包含所有信息的单元格将是一个很大的好处。例如,如果我有一个具有“Dog,2,5,8”的单元格,程序可以运行程序可以告诉它的含义并运行我的计算?提前谢谢你的帮助。

4

1 回答 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 回答