VBA分割文字列から値を返す

Question

定義済みの文字列の分割値を返して定義しようとしています。 （vba）セルの区切り文字は "@"です。

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) 

：それは次のコードを使用してのみ、「要素1 @エレメント2」であるとき、私はこれを行うことに成功している「要素1 @エレメント2 @エレメント3 @ Element4」

：ここ

は一例ですどのようにこれに近づき、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()