通过VBA实现：指定单元格后批量修复同行失效数据验证列表

直接给你改好的VBA代码，支持输入单个有效单元格地址，自动修复同行指定列的数据验证：

Sub FixRowDataValidation()
    Dim targetCell As Range
    Dim inputAddr As String
    Dim targetRow As Long
    Dim dvSource As String
    Dim targetCols As Range
    Dim col As Range
    
    ' 获取用户输入的有效单元格地址
    inputAddr = InputBox("请输入包含有效数据验证的单元格地址（例：A15）：")
    If inputAddr = "" Then Exit Sub
    
    ' 校验输入地址是否合法
    On Error Resume Next
    Set targetCell = Range(inputAddr)
    On Error GoTo 0
    If targetCell Is Nothing Then
        MsgBox "地址无效，请重新输入。"
        Exit Sub
    End If
    
    ' 提取该单元格的下拉列表数据源
    With targetCell.Validation
        If .Type <> xlValidateList Then
            MsgBox "选中单元格不是下拉列表类型的验证，请重新选择。"
            Exit Sub
        End If
        dvSource = .Formula1
    End With
    
    targetRow = targetCell.Row
    
    ' --------------------------
    ' 可自定义：设置需要修复的列范围
    ' 示例1：单独修复D列（状态列）
    ' Set targetCols = Columns("D")
    ' 示例2：修复D、E、F三列
    Set targetCols = Columns("D:F")
    ' 示例3：自动匹配表头为「状态」的列（假设表头在第1行）
    ' Set targetCols = Rows(1).Find(What:="状态", LookAt:=xlWhole).EntireColumn
    ' --------------------------
    
    ' 遍历目标列，为同行单元格应用数据验证
    For Each col In targetCols
        With col.Cells(targetRow).Validation
            .Delete ' 清除原有失效验证
            ' 添加新的下拉列表验证
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=dvSource
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With
    Next col
    
    MsgBox "同行数据验证修复完成！"
End Sub

关键说明 #

1. 输入灵活：通过输入框获取有效单元格地址，彻底摆脱硬编码范围的麻烦
2. 规则复用：直接提取有效单元格的下拉数据源，保证修复后的验证和正常单元格完全一致
3. 自定义列范围：你可以根据自己的表格结构，修改代码中targetCols的定义，支持单列、多列或自动匹配表头列三种模式
4. 容错处理：加入了地址合法性、验证类型校验，避免误操作导致的报错

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