コンボボックスで選択した値をシートに転記する

質問

エクセルを使用して表を作成していますが、うまくいきません。
作りたいのは下記のものです。

sheet1にリストを作成
　（リストはA-F列で300行程、また先頭A列は任意の不連続番号）
sheet2に表を作成
sheet2のＡ1にコンボボックスを作成
コンボボックスにはsheet1のリストのA,B列を表示させたい
またコンボボックスで選択した行のデータをsheet2にコピーさせる。

と、なるようにしたいのですが、どのようにしたら良いのでしょうか？
コンボボックスのリンクから参照したVLOOKUPだとセルのデータを上書きされると、式がなくなってしまうので、VBAで作成したいです。

回答No.1

imogasi

これも丸投げ質問。エクセルのコントロールの解説書など読んで質問しましたか。
全面的には下記のほかに、他の課題もあるので質問者には難しいと思う。
＞リストはA-F列で300行程
をコンボで選択させるのはユーザーには苦しいと思うよ。
ーーーー
下記は解説書に解説が有るか無いかの線の事項。
その他は勉強すること。
例　アイテムは下記の例　３列の例　Sheet1に置くGHI列
1 東京 aa
2 大阪 bb
3 福岡 cc
（１）コンボをシートSheet2に貼り付け
プロパティで
ColuknCount 3
ColumnWidth　　10 pt;30 pt;30 pt
ListFillRange　G1:I5　他シートの場合はSheet1!G1:I5
ーーーーー
Sheet2のイベントプロシージュアーに
Private Sub ComboBox1_Change()
Range("A65536").End(xlUp).Offset(1, 0) = ComboBox1
Range("A65536").End(xlUp).Offset(0, 1) = ComboBox1.Column(1)
Range("A65536").End(xlUp).Offset(0, 2) = ComboBox1.Column(2)
End Sub
ーーー
結果
順次選択してコンボのアイテムをクリック
2 大阪 bb
3 福岡 cc
1 東京 aa
順次直下の行にデータが新たにセット（累積）される。
＞VLOOKUPだとセルのデータを上書きされると
こんなこといっていたらエクセル利用など考えられない。それは別の方法で保護するとか考えるしかないと思う。（上記はVLOOKUP使ってないが）