我正在尝试使用基于公式的值填充列，然后验证数据。
我的子公式工作完美，但是当我在同一列上运行数据验证时，我得到一个“类型错误”。当我使用我输入的值在列上运行验证子时，它可以很好地工作。
Sub InsertFormulas()
Dim Lastrow As Long
Application.ScreenUpdating = False
Range("AC1").Value = "Age"
Range("AD1").Value = "Experience"
Range("AE1").Value = "Day DOI"
Range("AF1").Value = "Month DOI"
Range("AG1").Value = "Year DOI"
Range("AH1").Value = "Lag Time"
Range("AI1").Value = "OOW Days"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
'Age Formula
Range("AC2").FormulaR1C1 = "=(L2-D2)/365"
Range("AC2:AC" & Lastrow).Formula = "=(L2-D2)/365
End sub()
然后我的数据验证公式为：
Sub ClearCells()
Dim Lastrow As Long
Dim cell As Range
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("AC2:AC" & Lastrow)
If cell.Value < 0 Then
cell.ClearContents
End If
Next cell
但是当我运行Clearcells（）时，我在“Cell.Value”行上得到“Type Mismatch”。
请帮忙！