エクセル　VBAでsheet1の値をsheet2に代入したい。

前提・実現したいこと

エクセル VBAで画像のsheet1のC000...=...という値が入っている行の＝より右の値６個をsheet2のX、Y、Z、W、P、Rの順（sheet1でいう一番左の値をXに代入）に単位は残して、数字の部分だけ入れ替えたいです。どのようなプログラムを作ったらよいでしょうか？

＊sheet1のC000...=...が入っている行の数とsheet2 の "イチ[n]{" からはじまって "};" で終わるブロックの数は常に対応しています。

＊sheet2 の "イチ[n]{" からはじまって "};" で終わるブロックの行は常に9行です。

＊右の値６個というのは、画像で言うとC00036なら2017.664、249.464、-151.063、144.42、84.6、-135.65の6個の値です。

＊A5をA7のX、B5をB7のY、C5をC7のZ、D5をD7のW、E5をE7のP、F5をF7のR、A7をA16のX、B7をB16のY、C7をC16のZというようにsheet2の上の行のブロックから順に代入するという意味です。

＊sheet2（転記先）のX、Y、Z、W、P、Rに入っている数値は、画像の通り、小数点が必ず入っています。
また、場合によっては数値の前にマイナスがついているものもあります。

＊sheet2（転記先）のX、Y、Z、W、P、Rに入っている数値、単位の前にスペースが空いています。
数値の前は、すべてスペース2つ空いてます。
単位の前は、mmは2つdegは1つスペースが空いています。

＊画像では、ともに3個ずつ出てきていますが、本番では、sheet1のC000...=...が入っている行の数とsheet2 の "イチ[n]{" からはじまって "};" で終わるブロックの数が100個くらいあると想定して教えてほしいです。

宜しくお願いします。

試したこと

すみません、まだ何も試していません。
VBA初心者で困っています。

coco_bauer

2020/12/08 01:44

「A5をA7のX」というのは、どういう意味ですか? A5、A7はそれぞれセルを指すものと思われますが、それとXとはどう関係するのでしょうか？「sheet2のX、Y、Z、W、P、Rの順」と書かれていますが、質問の画像ではsheet2のAからF列までしか表示されていません。何がしたいのかを具体的な例を交えて、詳しく説明することをお勧めします。現状の質問は、理解不能ですので。

meg_

2020/12/08 02:14

> VBA初心者で困っています。何を学習されてどこまでコーディング出来るのでしょうか？現状では丸投げですよね？

退会済みユーザー

2020/12/08 02:23 編集

すみません、説明が分かりずらかったです。＞「A5をA7のX」というのは、どういう意味ですか? A5というのはsheet1のA5のことでA7はsheet2のA7という意味です。Xは画像で言うとsheet2のA7にあるX＝47.817mmのことです。同様にB5というのはsheet1のB5のことでB7はsheet2のB7という意味です。Yは画像で言うとsheet2のB7にあるY＝754．697mmのことです。具体例としますと、画像のC00036の＝より右の値2017.664をsheet2のX＝47.817mmに単位は残して数値だけを代入したいです。つまり、X＝2017．664mmにしたいです。同様に249.464をY=754.697mmへ、-151.063をZ=243.783mmへ、144.42をW=-95.08degへ、84.6をP=89.64degへ、-135.65をR=-98.18degへということです。これをC000...=...が入っている行の数とsheet2 の "イチ[n]{" からはじまって "};" で終わるブロックの数だけ繰り返したいです。 X=、Y=、Z=、W=、P=、R=このように書けばよかったですね

退会済みユーザー

2020/12/08 02:31 編集

丸投げですよね。申し訳ありません。とりあえず、sheet1の検索した値を選択して、sheet2の検索した値に代入というものをやってみたのですが、なかなかうまくできませんでした。