Excel 中给下拉框赋值

Sheet1中，有如下内容

A	B	W
a1	b1	c1
a2	b2
a3	b3
	b4

分别属于三个“定义”（插入 --  名字 -- 定义）

Sheet2中，通过（数据 -- 输入规则 -- 设定 -- List）做出下拉框，内容为A，B，W

要实现，在Sheet2中，通过判断选择下拉框里的内容，来动态生成一个新下拉框，其内容为Sheet1中对应的内容。比如，选择A，那么要生成一个新的下拉框，内容为a1,a2,a3

代码如下：

 

 Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假定原有下拉框在第五列
    If (Target.Column = 5) Then
        ' 如果选择了B，那么将第一列到第四列变颜色
        If (Target.Text = "B") Then
            Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Select
            'Range(Range("J2"), Range("J2").End(xlDown)).Select
            'Range(Range("J2"), Range("J2").End(xlToRight)).Select

            With Selection.Interior
                .ColorIndex = 53
                .Pattern = xlSolid
            End With

        End If
        
        ' 保存下拉框中所选择的值
        Dim test As String
        test = "=" & Target.Text
        
       ' 在原有下拉框的右侧单元格中生成新的下拉框
        Cells(Target.Row, 6).Select
        With Selection.Validation
                  .Delete
                  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                  xlBetween, Formula1:=test
                  .IgnoreBlank = True
                  .InCellDropdown = True
        End With
        Target.Activate
    End If
 End Sub