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()