请求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",......

谢谢！