使用userform提取数据

我正在尝试使用用户窗体提取数据。

这里是Excel列的结构：

sheet1: column 1|column 2|column 3|column 4|column 5 Sheet2: column 1|column 2| ......................................... column xx 

两栏中的栏1是相同的。 我想要一个下拉列表从列1中select任何值，这些字段应显示在基于列1的选定值的用户表单中。

第1列的第1列|第2列|第2列的第xx列| 第1页第3,4,5栏

这是我创build的代码，但无法select所需的数据

 Private Sub ComboBox1_Change() Application.ScreenUpdating = False Dim CL As Object Worksheets(2).Select For Each CL In Worksheets(2).Range("A2:A20") If CL = ComboBox1.Text Then Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy Destination:=ActiveCell.Offset(0, 5) End If Next Worksheets(2).Select End Sub Private Sub UserForm_Activate() ComboBox1.RowSource = ("A2:A20") End Sub 

Answer 1

怎么样像…

 Private Sub ComboBox1_Change() Application.ScreenUpdating = False Dim CL As Excel.Range For Each CL In Worksheets(2).Range("A2:A20") If CL = ComboBox1.Text Then '# CL.Resize(0, 5).Copy Destination:=CL.Offset(0, 5) '# Or even better... CL.Offset(0, 5).Resize(0, 5).Value = CL.Resize(0, 5) End If Next Application.ScreenUpdating = True End Sub Private Sub UserForm_Activate() ComboBox1.RowSource = "A2:A20" End Sub 

我已经离开了复制的目的地，虽然我不知道这是实现…