从一张纸复印单元格，根据VLOOKUP

Question

我有一个提交表单，Sheet1和一个进行计算的数据表，Sheet2。 Sheet2包含名称和日期列表以及准备填充的空单元格。

在Sheet1上，用户从A2中的列表中选择一个名称（使用数据验证，源是第三个参考表），然后输入C1，D1，E1，F1等中的值。然后用户单击打印表单Sheet1。

的按钮

我还想将数据从C1，D1，E1等传输到Sheet2，然后将它们插入到正确的行中，该行在Sheet2！A1中的Sheet1！B1中输入了相应的名称。

我很满意VBA将定义的单元格复制到其他已定义的单元格，但不确定如何将其与基于A中的值在Sheet2中找到正确的位置相结合。下面是Sheet1和Sheet2。

Answer 1

请根据您的要求进行修改

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