Question

VBA与数据有效性

A列的数据有效性为序列A=（1,2,3,4,...,n)，B列的数据有效性要根据A列的值确定：
如果单元格a1=1，则b1的数据有效性为序列1；
如果单元格a1=2，则b1的数据有效性为序列2；
...
如果单元格a1=n，则b1的数据有效性为序列n；

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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