VBA与数据有效性

数据有效性可以使用公式，=IF($A$1=1,$A:$A,IF($A$1=2,$B:$B,IF($A$1=3,$C:$C,$D$D)))
我觉得这样是最简单的。
但是excel2003数据有效性公式有长度限制，按照问者的要求只能实现到a1=3，再多写就不接受了。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
Range("b1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Range("a1")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End If
End Sub

手机WPS表格中怎么设置数据有效性，数据有效性控制数据长度

你是说二级下拉吗？
可是按你的表述，你直接B1输入公式=A1就行了呀