エクセルＶＢＡで、シート１の値をシート２へ移すには？

質問

エクセルＶＢＡの質問です。初心者です。
■シート１のＡ１に「１２３」と打ったら、シート２のＡ１に「１２３」と表示される。そして、Ａ２に「４５６」と打ったら、シート２のＡ２に「４５６」と表示される。続いてシート１のＡ３の値をシート２のＡ３に・・・とどんどん繰り返してたくさんの値を別のシートに移せるようにしたいです。
関数で言えば、VLOOKUP　と似ている機能を作りたいと思ってます。
よろしくお願いします。

回答No.2

hige_082 · ベストアンサー

一例です

'sheet1のシートモジュールへ
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet2").Range(Target.Address).Value = Target.Value
End Sub

参考まで

お礼

お礼が遅くなり申し訳ありませんでした。
エクセルＶＢ勉強中です。ありがとうございます。

回答No.1

A88No8

こんにちは
>シート１のＡ１に「１２３」と打ったら、シート２のＡ１に「１２３」と表示される。に・・・とどんどん繰り返してたくさんの値を別のシートに移せるようにしたい。
　例えば、Sheet2のA1セルに下記の式を入れて残りのセルはA1セルをコピーすれば、多分ほぼ同じことが出来ます。
=IF(Sheet1!A1<>"",Sheet1!A1,"")

　これはセル間のリンク機能です。
　実体のコピーを置くとなるとＶＢＡでイベント発生ごとに自動実行させるプログラムを書くしかありません。

お礼

ありがとうございます。
自動実行プログラム。。。そうですよね。。
なんか難しそうです。