Is there away to call Multiple Items from single cell

Question

我想知道是否可以從單個單元中調用多個項目？我在空間上非常有限，因此讓一個小區擁有所有的信息將是一個很大的好處。例如，如果我有一個單獨的單元格有「狗，2,5,8」程序可以運行該程序可以告訴它是什麼意思，並運行我的計算？提前謝謝你的幫助。

Answer 1

正如@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 

宏會給你此消息框：

現在，你可以通過TestArray（）與剛剛遍歷For循環，做你的邏輯。

請參閱MSDN文檔here

這裏是另一個post