请求VBA大师帮助！
VBA提取数据有效性序列内容埴充单元格
Sheet1!D5，Sheet1!E5，是数据有效性序列，序列源是公式多级下拉菜单源。
例如:Sheet1!D5序列内容有"编号1","编号2","编号3",......
VBA自动填充单元格：Sheet1!D5="编号1"，Sheet1!D6="编号2"，Sheet1!D7="编号3",......
例如:Sheet1!E5序列内容有"品名1","品名2","品名3",......
VBA自动填充单元格：Sheet1!E5="品名1"，Sheet1!E6="品名2"，Sheet1!E7="品名3",......
谢谢！
