能否在Excel VBA数据验证公式中使用Cells指定动态校验单元格

直接在数据验证公式中写VBA的Cells对象是否可行？ #

完全不可行。
数据验证的Formula1参数接收的是Excel原生可解析的工作表公式字符串，不是VBA语法体系的内容。你直接把Cells(行号,列号)这类VBA对象方法写进字符串里，Excel解析时会直接报错，根本无法识别这部分代码的含义。
另外你拟写的公式存在语法硬伤：括号未闭合、VBA方法无法被Excel公式引擎识别，完全无法运行。

动态适配每行文本校验的正确实现方式 #

这里分两种场景对应最优写法，不需要逐行硬拼固定地址：

• 逐行循环单单元格设置（匹配你当前的循环逻辑）
  因为你要校验的就是循环中定位到的第iLastRow行第16列（P列）的目标单元格本身，正确的做法是把VBA计算出的单元格相对地址，通过字符串拼接的方式嵌入到Excel公式里，关键用到单元格对象的.Address属性，把VBA对象转成Excel能识别的地址文本。
  优化后的可运行代码示例：

  With ThisWorkbook.Worksheets("Sheet3").Cells(iLastRow, 16).Validation
      .Delete
      ' 自定义验证不需要额外传Operator参数
      .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, _
           Formula1:="=ISTEXT(" & Cells(iLastRow, 16).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")"
  End With
  

  这里Address的两个参数设为False，是为了生成不带绝对锁的相对地址（比如P5而非$P$5），避免引用错位。
• 批量整段范围加验证（效率更高）
  数据验证自带相对引用适配逻辑，根本不需要逐行循环：只要选中需要加验证的整个P列数据范围，只需要针对范围左上角的第一个单元格设置一次验证公式，Excel会自动把公式的相对引用适配到范围里的每一行。
  比如你要给Sheet3里P2到P1000的所有单元格加“仅允许文本”的验证，直接写一次代码即可，循环上千行的执行效率会被大幅压缩：

  With ThisWorkbook.Worksheets("Sheet3").Range("P2:P1000").Validation
      .Delete
      .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=ISTEXT(P2)"
  End With
  

常见踩坑提醒 #

• 自定义类型（xlValidateCustom）的数据验证不需要传入Operator参数，这个参数只适用于整数、小数、文本长度这类内置比较规则的验证类型，传了也不会生效。
• 不需要反复用Select选中单元格再操作验证，直接通过单元格对象访问.Validation属性即可，能大幅减少循环过程中的界面闪烁，提升运行速度。

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