Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23387 / 76732

←次へ　｜　前へ→


	【58712】Re:１つセルの中身を2セルに分けるには

kanabun - 08/11/5(水) 18:33 -


	引用なし

	パスワード

▼にさん：

>一瞬できたと思ったのですが、
>
>　　　　v(i, 2) = t(1)
>でエラーになります。インデックスが有効範囲にない、と出ます。
>なにがいけないでしょうか。

Split関数はスペースが一つ以上含まれたセルデータに対して
　　t = Split("MDK05 みかん")
を実行しますと、データはスペースで前後に分割され、
　　t(0) に "MDK05"　が
　　t(1) に "みかん"　が
代入されます。

スペースが一つもないセルデータですと
　　t = Split("ANBCDE")
の結果は、分割されずに、
　　t(0) = "ANBCDE"

のようになるだけです。
したがって、そういうデータ（スペースを含まないデータ）があるならば、
代入は(0)で終了する必要があります。

変数 j を追加して
　 Dim j as long

For～ Next のところを

　　For i = 1 To UBound(v)
　　　　t = Split(v(i, 1))
　　　　v(i, 2) = 0
　　　　For j = 0 to UBound(t)
　　　　　　v(i, j + 1) = t(j)
　　　　Next
　　Next

とでもしてみると、どうなりますか？

0 hits

▼

【58702】１つセルの中身を2セルに分けるには に 08/11/5(水) 14:32