VBA從分割字符串返回值

Question

我正在嘗試返回並定義已定義字符串的分割值。 （在vba中）單元格的分隔符是「@」。

下面是一個例子：「元素1 @元素2 @元素3 @元素4」

我已經成功地這樣做時，它是唯一的「部件1 @元素2」使用下面的代碼：

Sheet1.Range("B1").Value = Linerange.Value 

Dim Element1 As String 
Dim Element2 As String 

Element1 = Left(Linerange.Value, InStr(1, Linerange.Value, "@") - 2) 
Element2 = Right(Linerange.Value, Len(Linerange.Value) - InStr(1, Linerange.Value, "@") - 1) 

任何想法如何解決這個問題，併爲Element3和Element4定義值？

謝謝！

Answer 1

嘗試使用你的價值Split function：

Dim elements, ele '' Declared implicitly as Variant type 

elements = Split(Linerange.Value, "@") 
For Each ele in elements 
    Debug.Print ele 
Next 

Answer 2

Dim vSplit As Variant 
vSplit=Split(Linerange.Value,"@") 

你接下來的vSplit()