数値の自動コピーができるプログラムについて

質問

お世話になります。

画像のようにエクセルデータがあるのですが、画像左側の何も入力されていないシートの
先頭行について

例えばA1セルに１を入力すると画像右側の先頭行と同じ列の数字が列Aに自動的にコピーできるようなプログラムがあると助かります。（画像左側のシート１１，１２，１３それぞれに適用できるとありがたいです）

最初はHLOOKUP関数で参照を試みたのですが、画像右側のデータで入力されていないものには０が返されてしまい、都合が悪い状態になってしまいます。
（右側のデータにないところには左側のデータにも関数を含めて入力されていないものを希望するためマクロ、VBAがいいのではないかと考えました）

詳しい方のアドバイスが頂けますと幸いです。よろしくお願いします。

回答No.1

keithin · ベストアンサー

関数の方がはるかに便利ですが、まぁマクロのご相談なので。

手順：
シート１１のシート名タブを右クリック、コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim c as range
　if target.count > 1 then exit sub
　if target.row > 1 then exit sub
　if target = "" then exit sub

　set c = worksheets("読めない先頭シートの名前").range("1:1").find(what:=target.value,　lookin:=xlvalues, lookat:=xlwhole)
　if not c is nothing then
　　c.entirecolumn.copy target
　else
　　msgbox "NOT FOUND"
　　target.select
　end if
end sub

他の１２，１３シートにも同様にマクロを付ける。

お礼

ありがとうございました。関数でもできるのでしょうか？
よろしければ関数での方法もアドバイス頂けますとありがたいです。何度も申し訳ありませんがよろしくお願いします。

回答No.2

ereserve67

参照先が空白の場合に空白が表示されるようにするなら

=IF(ISNA(HLOOKUP(？)),"",HLOOKUP(？))

とすればよいのではないですか．

お礼

ありがとうございました。試してみましたがマクロの方がいい結果が出たようです。