|
こんにちは、初心者なので、よろしくお願いいたします。
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
以上の文字列がそれぞれのセルに書き込まれます。
質問1
以上のコードをExcel2000ではエラーとなるので、どのようなコードにすれば
Excel2000でも同じ結果が得られるでしょうか?
質問2
このような空白が入った文字列が、何行も並んでいたとき(違う箇所に空白が入っている)
連続的に処理し、セルに分ける方法もあるのでしょうか?
よろしくお願いいたします。
|
|