セルを1枚のシートにコピーし、VLOOKUPに基づいて正しい場所に2枚目のシートに貼り付けます

Question

提出フォームSheet1と、計算を行うデータシートSheet2があります。 Sheet2には名前と日付のリストと、空のセルを埋め込む準備ができています。

Sheet1で、ユーザーはA2のリストから名前を選択し（データ検証を使用し、ソースは3番目の参照シートです）、C1、D1、E1、F1などの値を入力します。フォームシートSheet1を印刷するボタン。

また、C1、D1、E1などのデータをSheet2に転送し、Sheet2！A1のSheet1！B1に入力された対応する名前が正しい行に挿入されるようにします。

定義済みのセルを定義済みのセルにコピーするのは快適ですが、Aの値に基づいてSheet2の正しい位置を見つける方法と組み合わせる方法がわかりません。以下はSheet1とSheet2です。

Answer 1

あなただけのSheet2のA1に反復可能性があなたの条件

Sub copyrange() 

Dim sheet2_row As Integer 

sheet1_name = Sheets("Sheet1").Cells(2, 2).Value 
sheet2_row=WorksheetFunction.Match(sheet1_name,Sheets("Sheet2").Range("A1:A10"), 0) 

Sheets("Sheet1").Range("C2:AG2").Copy 
Sheets("Sheet2").Range("B" & sheet2_row & " : AF" & sheet2_row).PasteSpecial xlPasteValues 

End Sub