Excel VBA質問箱 IV

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

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


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

45986 / 76735

←次へ　｜　前へ→


	【35730】セルの文字列を分ける

AKIO - 06/3/11(土) 12:12 -


	引用なし

	パスワード

こんにちは、初心者なので、よろしくお願いいたします。

B3のセルに以下のような文字列がありまして、
請求No.： 03897 表示枝番： 00　最終枝番： 00 請求書締年月日： 18/02/GE 　（先頭は空白が入っています。）

これを処理するコードが
Range("B3").Select
　　Selection.TextToColumns Destination:=Range("B3"), DataType:=xlFixedWidth, _
　　　　FieldInfo:=Array(Array(0, 9), Array(9, 2), Array(15, 9), Array(26, 9), Array(29, 9), _
　　　　Array(41, 9), Array(44, 1), Array(61, 2), Array(70, 9)), TrailingMinusNumbers:=True

このようなもので、実行の結果文字列は、
B3→03897　C3→請求書締年月日：　D3→18/02/GE
以上の文字列がそれぞれのセルに書き込まれます。

質問１
以上のコードをExcel2000ではエラーとなるので、どのようなコードにすれば
Excel2000でも同じ結果が得られるでしょうか？
質問２
このような空白が入った文字列が、何行も並んでいたとき（違う箇所に空白が入っている）
連続的に処理し、セルに分ける方法もあるのでしょうか？

よろしくお願いいたします。

0 hits

▼

【35730】セルの文字列を分ける AKIO 06/3/11(土) 12:12

≪