エクセル VBA

質問

いつもお世話になっております。

同じような質問で申し訳ありません。
前回の配列のことの続きなのですが、

ひとつのセルに

A,B,C,D,E,F,G,H

と配列があったとします。
そこから、たとえば、前半と後半の2分割とか、
別に、
前2つ、つまりAとBと　残り6つ　CからHまでとか
分けて取り出す方法はあるのでしょうか。

これもレセ電の一環です。

すいません。お手数ですが教えていただけると助かります。
よろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

Sub try()
Dim st As String
Dim v, w

st = "A,B,C,D,E,F,G,H"

v = Join(Split(Left(st, InStr(InStr(st, ",") + 1, st, ",") - 1), ","), "")
w = Join(Split(Right(st, Len(st) - InStr(InStr(st, ",") + 1, st, ",")), ","), "")

MsgBox v & "_" & w
End Sub

一例まで。

お礼

いつも、考えていただいて助かります。

参考にさせていただきます。

ありがとうございました。
またよろしくお願い申し上げます。

回答No.2

n-jun

Sub try2()
Dim st As String
Dim v, w, x
Dim i As Integer

st = "A,B,C,D,E,F,G,H"

v = Split(st, ",")

w = v(0) & v(1)

For i = 2 To 7
x = x & v(i)
Next

MsgBox w & "_" & x

End Sub

などといった方法も。

お礼

そうですか、続きで、別の投稿にも書いたのですが、
やっぱり、ROOPと&でくっつけないとだめなのでしょうか。

パラメーターの数字を入れるとその要素だけ取り出せたら、助かるのですが、
無理なら、ROOPで取り出します。

すいません。お手数をおかけしました。
ありがとうございました。