使用VBA将验证列表添加到区域中的所有空白单元格

Sub AddValidationListToBlankCells()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要添加验证列表的区域范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历区域中的每个单元格
    For Each cell In rng
        ' 检查单元格是否为空白
        If cell.Value = "" Then
            ' 清除之前的数据验证
            cell.Validation.Delete
            
            ' 添加验证列表
            With cell.Validation
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Option1,Option2,Option3"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End If
    Next cell
End Sub