如何使用数据透视表行标签为RepName单元格设置数据验证

问题原因 #

你代码里定义的PTRange是VBA运行时的局部变量，Excel工作表的公式体系无法直接识别这个变量名，所以直接写=PTRange或者套INDIRECT都不会生效。

修正后可运行代码 #

Sub SetRepNameValidation()
    Dim PTRange As Range
    Dim ws As Worksheet
    ' 可替换为你数据透视表所在的工作表名称，例如Set ws = Sheets("数据透视表")
    Set ws = ActiveSheet
    
    ' 优化范围获取逻辑：从B列底部往上找最后一个有值的行，避免中间空行导致范围截断
    Set PTRange = ws.Range(ws.Range("B185"), ws.Cells(ws.Rows.Count, "B").End(xlUp))
    
    With ws.Range("RepName").Validation
        .Delete
        ' 直接把范围的完整绝对地址拼入验证公式
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:="=" & PTRange.Address(External:=True)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Value must be on the list"
        .InputMessage = ""
        .ErrorMessage = "Insert line into table on sheet DrpDwnValues and enter value into blank line"
        .ShowInput = True
        .ShowError = True
    End With
End Sub

代码说明 #

• PTRange.Address(External:=True)会自动生成带工作表名的绝对引用地址，就算后续切换工作表操作，也不会导致数据验证的源范围错位
• 调整了原代码里范围获取的逻辑，避免B185下方存在空行时，只能取到空行之前的部分内容

内容的提问来源于stack exchange，提问作者user1636620