ExcelからWordへのコピーについて

質問

Excelに縦一列に並んでいる品番リストをワードにカンマをいれながら横に並べる効率の良いコピー＆ペーストの方法はありますか？イメージとしては以下のような感じです：
Excelの表としては、
A001
B001
C001
D001
A002
B002
C002
D002
となっているものを、
A001, B001, C001, D001,
A002, B002, C002, D002,
というようにワードにコピーしたいのですが数千品番もあるので効率の良い番号が知りたいです。

よろしくお願いします。

回答No.1

s-uzen · ベストアンサー

Excelのデータですが、表として示された品番リスト A001～D002・・・の1列のデータだけですか。
ExcelとWordのバージョンが分かりませんので2003を例に示しますが、他のバージョンでも殆ど同じです。
幾つかの方法があると思いますが、一例を示します。

Excelファイルを、名前を付けて保存で、CSV形式かテキスト形式で保存します。
保存したファイルを、Wordのファイル→開くで開きます。
Word文書で読み込むと、
A001
A002
　：
　：
C002
D002
のように、表示されます。

編集→置換を選択し、検索と置換画面の[オプション]を指定します。

・以下の操作で、読み込んだデータをカンマ区切りに変換します。
□ワイルドカードを使用するのチェックを外します。
□あいまい検索のチェックを外します。
検索する文字列に「^p」、置換後の文字列に「，」(カンマ)と入力し、[すべて置換]を指定します。
入力する文字列は、すべて半角で入力します。
結果、
A001,B001,・・・・・・C002,D002,
と、カンマ区切りで1行のデータに置換されます。

・以下の操作で、カンマ区切りとなったデータをD***毎に区切って、1行毎のデータに置換します。
□ワイルドカードを使用するにチェックを入れます。
検索する文字列に「D*，」、置換する文字列に「^&^p」と入力し、[すべて置換]を指定します。
結果、
A001,B001,C001,D001,
A002,B002,C002,D002,
のようになります。
最後に入る改行は、不要なら削除します。

お礼

回答ありがとうございます。おかげで助かりました。

回答No.2

tom04

こんばんは！
参考になるかどうか判りませんが・・・
一つの案です。

Excelの方で列方向に並び替えをして、必要部分のみをWordに貼り付ける方法です。

↓の画像で説明します。
配列数式にすれば作業用の列は必要ないのですが、データ量が数千品番あるということなので配列数式にしてしまうと
フリーズしたのか？というくらいコンピュータに負担がかかってしまいますので
敢えて作業用の列を使っています

頭一文字がA～Dだとしての方法です。

まず、作業列B2セルに
=IF(LEFT($A2,1)=B$1,ROW(A1),"")
として、E2セルまでオートフィルでコピーし、B2～E2セルを範囲指定した後に、E2セルのフィルハンドルでずぃ～～～！っと下へコピーします。
H1セルは
=IF(COUNT($B$2:$B$10000)<COLUMN(A1),"",INDEX($A$2:$A$10000,SMALL($B$2:$B$10000,COLUMN(A1))))

H2セルは
=IF(COUNT($C$2:$C$10000)<COLUMN(A1),"",INDEX($A$2:$A$10000,SMALL($C$2:$C$10000,COLUMN(A1))))

H3セルは
=IF(COUNT($D$2:$D$10000)<COLUMN(A1),"",INDEX($A$2:$A$10000,SMALL($D$2:$D$10000,COLUMN(A1))))

H4セルは
=IF(COUNT($E$2:$E$10000)<COLUMN(A1),"",INDEX($A$2:$A$10000,SMALL($E$2:$E$10000,COLUMN(A1))))
とし、H1～H4セルを範囲指定し、H4セルのフィルハンドルで列方向にコピーすると
画像のような感じになります。

この並び替えしたデータの必要部分のみをWordにコピー＆ペーストしてみてはどうでしょうか？

尚、数式は10000行まで対応できるようにしています。

以上、参考になれば良いのですが
的外れなら読み流してくださいね。m(__)m