Exel VBA 別ブックから該当データを検索し、必要なデータを取得判別し、データを書き換える

「緯度-経度　記録表」というブックがあります。
A列に測定点番号、B列に測定年月日、
C列に測定緯度、D列に測定経度、
E列に管理番号、F列に識別　です。

　　A列　　　　　　　B列　　　　　C列　　　　　D列　　　　　　E列　　　　　　F列
　測定点番号　　　測定年月日　　測定緯度　　　測定経度　　　管理番号　　　　識別
1　S0112014　　　20140820　　37.3745　　　140.981　　　SYS_3645　　工事後
2　S0262014　　　20140926　　37.3775　　　140.988　　　026_4565　　工事前
3 S0122014　　 　20140820　　37.3762　　　140.956 　　　 012_3960　　工事前
4　S0172015　　　20151013　　37.3772　　　140.956　　　026_4565　　工事後

※必ず「識別」が工事前と工事後で管理番号のみ同一のデータが2件ずつあります。
　上記だと2行目と4行目です

上記データが数千件。



また、「測定点番号一覧表」という別のブックには、
A列に測定点番号が、何千件と入力されています。

A列
測定点番号
1 S026014
2 S025558
3 S456789
4 S852147


やりたいことは
「緯度-経度　記録表」C列とD列の日付の古い方の「緯度」「経度」が間違えているので、日付の新しい方のデータの「緯度」「経度」を検索し貼り付けるという作業です。



現在行っている作業手順は

「測定点番号一覧表」ブックA列の測定点番号データ1行めの「S026014」を元に、
「緯度-経度　記録表」ブックで検索すると
「緯度-経度　記録表」の２行目がヒットします。

次は、
2行目の「管理番号」を「緯度-経度　記録表」ブック内で「すべて検索」すると、
2行目と4行目がヒットします。

2行目と4行目のB列「測定年月日」の日付が新しい方の
C列「測定緯度」D列「測定経度」をコピーし
日付が古い方のC列、D列へ貼り付けるというのが一連の流れです。


この作業を数千件繰り返すということで、
基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

No.1 ベストアンサー 回答者： rukuku 回答日時： 2016/06/15 12:23

こんにちは

Excel-VBAでは「呪文のようなコード」ではなく、
「検索ｰ置換」を手作業でなくVBAで行う“だけ”の作業になってしまいます。
…変換テーブルを作っておいて変換する
…変換テーブルを自動で作ろうとすると、そのためのVBAを組まなければならない
と言う状況だと思います。