求助下拉菜单式的VBA选择复制程序

sxxzxy

求教老师们帮忙编一下实现下面功能的VBA，谢谢！               

详细材料在附件。
               
1)        设置6个下拉菜单，而下拉菜单的内容都一样，就是sheet【页面1】【页面2】……【页面N】的行名字。       
               
2)        下拉菜单的名字内容       
                日期
                编号
                内容A
                内容B
                内容C
                内容D
                内容E
                内容F
                内容G
                内容H
                内容I
                内容J
                内容K
                人员
               
3）        希望VBA实现的功能       
        在下拉菜单中选择某个名字，就会将sheet【页面1】【页面2】……【页面N】的对应行的内容复制到       
        该sheet[0]的对应列。       
               

蓝桥玄霜

请见代码。
抄写代码，存盘退出，再打开工作簿时自动生成。

sxxzxy

蓝桥玄霜 发表于 2018-9-14 10:48
请见代码。
抄写代码，存盘退出，再打开工作簿时自动生成。

版主大人你好，代码我照抄了

Private Sub Wrokbook_Open()
Dim bt, d, i&
Set d = CreateObject("Scripting.Dictionary")
bt = Array("日期","编号","内容A","内容B","内容C","内容D","内容E","内容F","内容G","内容H","内容I","内容J","内容K","人员")
For i = 0 To UBound(bt)
    d(bt(i)) = ""
Next
With [b5].Resize(1,6).Validation
    .Delete
    .Add 3, 1, 1, Join(d.keys, ",")
End With
End Sub

重新打开工作薄，有下拉菜单，但选择某项目后没有将各页的对应数据提取到该列下。
还请指教一下，谢谢！

sxxzxy

哪位能说明一下如何使用？现在情况是有下拉菜单，但没有自动复制数据到指定位置。
谢谢!