[[20230421220331]]　『複数csvデータを一括で横に連結して1行のデータ化』（VBAしょしんしゃ）　ページの最後に飛ぶ

『複数csvデータを一括で横に連結して1行のデータ化したい』（VBAしょしんしゃ）

VBA得意な方、教えてください。

CSVで出力したファイルが10個あります。
一番左のA列には10個のID、B列には社名、C列以降には様々な情報が入っています。
CSV10個のA列、B列は固定で全て同じ情報が入っています。（順序も同じ）
C列以降の情報のみがファイル毎に違い、更に列数もバラバラです。

1行にA会社の情報を全て並べるために、10個のCSVデータを横につなげていく
マクロやVBAのコードはありますでしょうか？

イメージ
?@CSV01
A列 B列 C列 D列 E列
001 Ａ会社東京 500人 IT関連
002 B会社静岡 100人食品関連
003 C会社北海道 50人アパレル関連
・
・
・
?@CSV02
A列 B列 C列 D列 E列 F列
001 Ａ会社 1/10 参加メールアドレス
002 B会社 2/7 参加電話番号
003 C会社 4/5 欠席電話番号
・
・
・

ちなみに横ではなく、縦に追加していく方法はわかっていますが
横への連結方法が知らべてもよくわかりませんでした。
詳しい方、教えていただけますようお願い致します。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

＞ちなみに横ではなく、縦に追加していく方法はわかっていますが
そのコードがコピペするコードなら、

 Workbooks("集約先ブック名").Worksheets("集約先シート名").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)

このセルが貼り付け先になるのでは。

（無印） 2023/04/21(金) 23:25:02

＞ちなみに横ではなく、縦に追加していく方法はわかっています
既にコメントがありますが、外部ファイルとしてインポートする場合でも、前に読み込んだデータの最終列の１つ右が起点となるセルですよね。

まずは"わかっている"方法を提示して相談してみてはどうでしょうか？

（もこな２） 2023/04/22(土) 08:56:44

コメント返信：

[ 一覧(最新更新順) ]

[[20230421220331]] 『複数csvデータを一括で横に連結して1行のデータ化』（VBAしょしんしゃ） ページの最後に飛ぶ

[[20230421220331]]　『複数csvデータを一括で横に連結して1行のデータ化』（VBAしょしんしゃ）　ページの最後に飛ぶ