Split の要素数を取得

vba

Split って配列でしょ？だったらレングｔｈじゃん。

Dim SplitCount As Integer
SplitCount = Split(temStr, "+").Length


(ﾟДﾟ)ﾊｧ? もしかして Count か？な訳ねーよなー

SplitCount = Split(temStr, "+").Count


ですよね〜

　
調べてみると Variant型にいれて UBound で取得するようだ。

Dim SplitItems As Variant
SplitItems = Split(temStr, "+")
For i = 1 To UBound(SplitItems)
    Rows(Row).Copy
    Rows(Row + i).Insert Shift:=xlDown '行の追加
    Application.CutCopyMode = False 'コピー状態を取り消す
    r.Offset(i).Value = "2a-" & SplitItems(i)
Next