レイアウトが異なる別のワークブックからデータを転記する方法を教えてください

ExcelのVBAで画像のように4個のレイアウトから6個のレイアウトの別ブックへ
番号を基準に赤枠内の関連するデータを転記したいです。
転記するページも百ページ以上になるのでコードを含めご教授いただきたいです。

色々と試してみましたが見様見真似では今の自分にはどうにもならず、、、
よろしくお願いいたします。

質問者からの補足コメント

• 補足です。
  それぞれの番号ごとに「種類」「担当者」「個別ランク」「今回総評」「前回総評」「備考」という項目があり、
  ４個レイアウトのワークブック「下書き.xlsx」の"Sheet1"　から　6個レイアウトのワークブック「清書.xlsx」の"評価1"にデータを転記。
  
  転記元の「下書き.xlsx」の"Sheet1"の画像を添付します。
  
  元データのならび
  
  　1　2
  　3　4
  
  を↓
  
  　1　2　3
  　4　5　6
  
  と並びかえの上、対応する項目を転記したいです。
  
  転記元のシートレイアウトはA1:R23の範囲を1ページとして100ページ強あります。
  （余白の行やセルあり）
  また、画像添付が1枚しかできないのでテキストでの説明になってしまいますが
  転記先のワークブック「清書.xlsx」の"評価1"のレイアウトはA1:Z23の範囲が1ページとなります。
  
  ご教授よろしくお願いいたします。

  
    補足日時：2024/10/10 13:47

No.2 回答者： fujillin 回答日時： 2024/10/10 12:26

こんにちは

図がハッキリとは読めませんので、とてもコードにはできませんけれど・・
（セル位置がよくわからないので・・）

方法はいろいろあると思いますけれど、赤枠で囲ったものが最小単位（10×8セルなのかな？）のようですので、それをひとかたまりとして、2列の物を3列に並べ替えると考えるのが簡単だと思います。

ひとかたまりで考えれば、元のデータが
　1　2
　3　4
　・・・
と並んでいるものを
　1　2　3
　4　5　6
　・・・
とするだけなので、番号から位置を計算する方法を考えれば良いです。
実際には、2段目と3段目の間に空白行を入れているようなので、もう少し複雑になりますけれど・・

並べ替えのルールがよくわかりませんけれど、
　1　2　5
　3　4　7
　・・・
の順でも良いのなら、2単位分（20×8セル）を一単位として考えれば、ごく単純な規則になるので、上記よりは簡単になります。

例えば後者の場合であれば、「1、3」、「2、4」・・を一単位として①、②・・と番号を与えるならば、
並び替え後の位置は、INT((番号-1)/3)+1 段目の、MOD(番号-1, 3)+1 列目として計算できます。
（実際には、番号や位置を0始まりとして考える方が計算は簡単です）
これに、一単位分の行数や列数を乗じたもので、実際のセル位置を求めることができます。

位置の対応関係を計算できさえすれば、後はそれに従ってループでコピペを繰り返せば良いことになります。

この回答へのお礼

ありがとうございます。
そして、私のつたない説明に加えて、画像があんなに見づらくなっているとは
思わず、、、大変失礼しました。
追加で画像をアップしようと思ったんですが、そもそも画像は１枚しかアップできないんですね。。。

並び順ですが、まさに下記ご推察通りです。

　1　2
　3　4
　・・・
と並んでいるものを
　1　2　3
　4　5　6
　・・・

全体図だとサイズが小さくなりすぎるので項目がわかる画像を含めて
質問自体を改めて再投稿いたします。
もしよければ回答、アドバイス等々いただけますと幸いです。

お礼日時：2024/10/10 12:55

No.1 回答者： tatsumaru77 回答日時： 2024/10/10 11:49

画像がよく見えないので、転記元の画像と転記先の画像を別々にアップしていただけませんでしょうか。

（画像が不鮮明なのはあなたのせいではありません。このサイトが圧縮して表示しているためです。）

画像では転記元と転記先は同じシート上にあるように見えますが、
もし、転記元と転記先のシートが違うなら、その旨明記し、シート名も提示してください。

不明点がいろいろありますが、画像が不鮮明なので、不明点の確認もできない状態です。
鮮明な画像がアップされましたら、逐次不明点の確認を行っていきたいと考えています。

この回答へのお礼

早速ありがとうございます。
そして、私のつたない説明に加えて、画像があんなに見づらくなっているとは
思わず、、、大変失礼しました。
追加で画像をアップしようと思ったんですが、そもそも画像は１枚しかアップできないんですね。。。
質問自体を改めて再投稿しますので、もしよければ回答、アドバイス等々いただけますと幸いです。

お礼日時：2024/10/10 12:53