我正在编写一个VBA代码,通过检查单元格的范围来确定每个单元格是否具有数据验证(下拉菜单),如果没有,则从另一个工作表上的列表中分配一个。
我目前遇到了检查当前单元格是否已经具有数据验证的问题。我得到了错误1004“未找到任何单元格”。
Sub datavalidation()
Dim nlp As Range
Dim lrds As Long
Dim wp As Double
Dim ddrange As Range
Sheets("DataSheet").Select
lrds = ActiveSheet.Range("A1").Offset(ActiveSheet.rows.Count - 1, 0).End(xlUp).Row
Set nlp = Range("I3:I" & lrds)
For Each cell In nlp
'error on following line
If cell.SpecialCells(xlCellTypeSameValidation).Cells.Count < 1 Then
wp = cell.Offset(0, -8).Value
Set ddrange = ddrangefunc(wp)
End If
Next
End Sub
有什么想法吗? 谢谢