|
>Excel2000ではエラーとなる
どこでどんなエラーが出ているか書くこと。それが質問の基本です。
ちなみにTextToColumnsメソッドは Excel5.0 の時代からありますから、どのVersion
でも使えるメソッドなのですが。
>このような空白が入った文字列が、何行も並んでいたとき
>(違う箇所に空白が入っている)連続的に処理し、セルに分ける
TextToColumnsメソッドのヘルプを、全く調べてないことを暴露しているような
もんです。空白(仮にスペースとする)で区切るなら、
〜.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True
などと「区切り文字を基準にした」セル分割の処理を選ばないといけない。
そのとき、先頭のスペースを無視しないと隣の列から入力されてしまうので、
分割する前に予め
For Each C In Range("B:B").SpecialCells(2)
C.Value = Trim(C.Value)
Next
というようにして、先頭のスペースだけを取り除いておく。
>何行も並んでいたとき連続的に処理
という点については、TextToColumns の文字から推測できるように、処理対象が列単位
なので
Columns(2).TextToColumns 〜
というようにすれば出来るのです。これもヘルプを調べていれば分かることですよ。
|
|