是否可以从单个单元格调用多个项目

Question

我想知道是否可以从一个单元格中调出几个项目？我的空间非常有限，因此拥有一个包含所有信息的单元格将是一个很大的好处。例如，如果我有一个单独的单元格有“狗，2,5,8”程序可以运行程序可以告诉它是什么意思并运行我的计算？感谢您的帮助。

Answer 1

正如@Tim Williams所说，斯普利特（）会做你想做的事。

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文档here

这是另一个post