VBAでSplitエラーです
環境:Excel2002です
Cells(1, 1)に(1)~(10),(13),(20)~(28)のような値があります
Cells(1, 1)の値は別のプロシージャ求めていてその都度変わります
Cells(j, 4)をスタート位置にして
Cells(j, 4)に(1)~(10)
Cells(j+1, 4)に(13)
Cells(j+2, 4)に(20)~(28)を表示したいので
以下のプロシージャにしました
Dim Str As String
Str = ActiveSheet.Cells(1, 1).Value
Dim i As Integer
Dim j As Integer
'◆カンマで区切った文字列をD列に格納
Dim tmp As Variant
tmp = Split(Str, ",")
j = 1
For i = 0 To UBound(tmp)
ActiveSheet.Cells(j, 4) = tmp(i)
j = j + 1
Next i
あるブックでは正常に動作するのですが
別のブックでは以下のエラーメッセージがでて動作しません
【モジュールではなく、変数またはプロシージャを指定してください】
何が原因なのでしょうか?ご教示願います
Splitを使わない別の方法があればそれでも結構です
とにかく困っています
お礼
ありがとうございます。