Excelでマクロ使用時の区切り位置のズレについて

質問

私はMicrosoft Excel 2007を使っていますが、マクロによる区切り位置機能を使った際のズレに悩んでいます。

実際の状況は以下の様になっています。

(1)まず、数十行、４１列（B～AP）の表を作り、罫線を付けてデータを入れる場所を作ります。

(2)次に、例えば以下の様なデータをそれぞれのセルに割り振りながら、１行にまとめます。

データ：
----------------------------------

食品詳細 牛肉(ひき肉) 100 g 100 0 224 19 15.1 0.5 49 310 4 20 170 2.3 4.3 0.08 --- 4 2 4 0.1 0.5 5 0.08 0.2 4.7 0.36 1.5 7 0.99 1 5.45 6.81 0.61 67 --- --- --- 0.1

----------------------------------

上記のデータは、『食品詳細』から『0.1』まで、すべてで４１個の数値および文字で構成されおります。

手動でやるには
このデータをセルB9に貼り付け、その後『区切り位置』機能のスペース区切りを実行することで
B9からAP9までのすべてのセルに割り振っています。

この作業をマクロにて実行させるために、開発タブにある『相対参照に記録』『マクロの記録』を使って
作業を記録しました。
作業は、『貼り付け』『区切り位置』です。

この様にして作成したマクロをショートカットキーで呼び出し使用したところ
上記の牛肉（ひき肉）では、手動と変わらない結果が得られました。
しかし、これを以下のデータで応用したところ、区切り位置にズレが生じました。

応用データ：
--------------------------------------

食品詳細 たまねぎ 50 g 50 0 18.5 0.5 0.05 4.4 1 75 10.5 4.5 16.5 0.1 0.1 0.025 0.075 --- 0.5 --- --- 0.05 --- 0.015 0.005 0.05 0.08 --- 8 0.095 4 0.005 --- 0.015 0.5 0.3 0.5 0.8 ---

--------------------------------------

どうも、小数点の区切り位置が違っている様です。

手動ではなく、マクロを利用してデータ入力を行いたいため、どうか改善策を教えては頂けませんでしょうか。
何卒よろしくお願い申し上げます。

実際の様子を画像で添付いたします。

回答No.1

mt2008 · ベストアンサー

画像が小さすぎてどこがどうずれているのか解りませんでしたが、Excel2010の環境では特にデータの区切り位置でずれるような事はありませんでした。
データに余計なスペースが入っている等はありませんか？

また、別なやり方としてSplit関数をつかってデータを分けて入れる方法をサンプルとして記しておきます。
B9以下に入っているデータをスペース区切りでバラバラにしてセルに入れていきます。

Sub Sample()
　　Dim sData
　　For i = 9 To Cells(Rows.Count, 2).End(xlUp).Row
　　　　sData = Split(Cells(i, 2), " ")
　　　　For j = 0 To UBound(sData)
　　　　　　Cells(i, j + 2) = sData(j)
　　　　Next j
　　Next i
End Sub

お礼

mt2008さん、回答して頂きありがとうございます！

これで思い通りのデータ整理が出来ます！！
また、マクロの勉強になりました。本当にありがとうございます。

↓以下、他の質問閲覧者のために、私がやった事を書いておきます。↓
------------------------------------------------------------

教えて頂いたプログラムを実行するために、まず空のマクロを作りました。
（ショートカットキーに割り振るため。）

その後、上記で作ったマクロの内容を、教えて頂いたプログラムに書き換え。
（『Sub Sample()』と『End Sub』は削除して、つじつまを合わせました。）

Ｂ９セルに私の４１行のデータを貼り付け、上記のマクロを実行したところ
スペース区切りになりました！！

しかし、このままではＢ９セルにしか適応できないため、以下の応用を行いました。

(1)データをコピーした状態で、　Ｂ９セルを選択。
(2)『相対参照で記録』＆『マクロの記録』
(3)Ｂ９に『貼り付け』
(4)先のsplit関数を使ったマクロの実行（自分で作ったショートカットキーを押す。）
(5)『記録の終了』

上の手順で作成した新しいマクロは、すべてのセルに応用可能です。

以上。