EXCEL有两列数据栏，A列和B列，都是通过下来框来选择，要求A列选择完成后，B列动态调整可选择的内容。例如：第一例选择“AA”，第二列可供选择的范围是“a-d”；第一例选择“BB”，第二列可供选择的范围是“e-h”；第一例选择“CC”，第二列可供选择的范围是“i-w”；第一例选择“DD”，第二列可供选择的范围是“w-z”；

首先设置第一列的数据有效性：

图一

接着设置第二列的数据有效性

图二

公式比较复杂：

=OFFSET($F$13:$I$16,VLOOKUP(INDIRECT("A"&ROW()),$D$14:$E$17,2,0),0,1,4)

解读如下：

先看一下基础数据区

基础数据区的信息，范围为：D14：I17

公式中用了两层嵌套，在OFFSET函数中嵌套了VLOOKUP函数，在VLOOKUP函数中嵌套了INDIRECT函数。INDIRECT函数用来读取同行第一列选择的数值，VLOOKUP用来返回偏移量，

OFFSET实现偏移。

新增一列作为辅助列，填入序号“1-4”。基础数据区域的第一行作为起始行。

运行结果：

加入vbs脚本编程,同时开启宏。但是如果用户电脑不开启宏,意味着生成的excel中vbs脚本失效。操作步骤如下：
点击开发工具,启动宏,如果wps的话开启需要安装插件

点击根据步骤1,2,3将vbs代码复制黏贴进去，vbs代码在文章底部。
重点!重点!重点!最后记得要加密整个工作簿，可以编辑的单元格要设置取消锁定（选中单元格，鼠标右键后点击单元格格式）。

vbs代码如下:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range
   Dim c As String
    For Each rng In Target
    If Not rng.Validation.Value Then
        Application.Undo
        Dim msg As String
        msg = "粘贴的数据不符合校验规则：位置在第" & rng.Row & "行，第" & getColumnName(rng.column) & "列，请仔细检查"
        MsgBox prompt:=msg, Title:="输入提示"
    Exit For
    End If
Next
End Sub
 
 
Private Function getColumnName(column As Integer) As String
    Dim alphabet(26) As String
    alphabet(0) = "A"
    alphabet(1) = "B"
    alphabet(2) = "C"
    alphabet(3) = "D"
    alphabet(4) = "E"
    alphabet(5) = "F"
    alphabet(6) = "G"
    alphabet(7) = "H"
    alphabet(8) = "I"
    alphabet(9) = "J"
    alphabet(10) = "K"
    alphabet(11) = "L"
    alphabet(12) = "M"
    alphabet(13) = "N"
    alphabet(14) = "O"
    alphabet(15) = "P"
    alphabet(16) = "Q"
    alphabet(17) = "R"
    alphabet(18) = "S"
    alphabet(19) = "T"
    alphabet(20) = "U"
    alphabet(21) = "V"
    alphabet(22) = "W"
    alphabet(23) = "X"
    alphabet(24) = "Y"
    alphabet(25) = "Z"
 
    
    If (column < 27) Then
        getColumnName = alphabet(column - 1)
    Else
        Dim i, j As Integer
        i = column \ 26
        j = column Mod 26
        If (i < 26) Then
            getColumnName = alphabet(i - 1) & alphabet(j - 1)
        Else
            getColumnName = column
        End If
            
    End If
    
End Function

今天被人请教了怎么设置excel数据有效性的多级联动，长期不用excel手生的很，于是乎今天又温故知新了一把。
需求如下：

解决方案：
第一步，定义名称
1.CTRL+G 选择“定位条件”

2.选择“常量”并确定

3选择“公式”、“根据所选内容创建”、“首行”

4.打开名称管理器可以看到定义的名称

第二步，在需要的地方引用名称
1.一级有效性，选择“数据”“数据验证”“序列”，填写公式 =老师（定义的名称）

2.二级有效性，选择“数据”“数据验证”“序列”，填写公式 =INDIRECT($A2)

3.其他级别可参考2级有效性