Excel VBA中复制单元格数据验证规则？现有代码失效求排查

先看你提供的VBA代码：

' Copy data validation rules for new rows
    
wsSource.Cells(1, "H").Copy
wsTarget.Cells(lastRow_Trg + i, "H").PasteSpecial Paste:=xlPasteValidation

以下是几种可能导致代码失效的原因：

• 工作表对象未正确绑定：wsSource和wsTarget这两个工作表变量如果没有提前用Set语句指定具体工作表（比如Set wsSource = ThisWorkbook.Worksheets("源工作表名")），代码会默认操作当前激活的工作表，大概率不是你要复制的目标对象。
• 目标单元格位置计算错误：lastRow_Trg + i的结果可能无效，比如lastRow_Trg获取失败（比如用了错误的方法取最后一行，导致得到0或超大值），或者i的取值让目标行号超出Excel允许的范围，代码实际没定位到正确的单元格。
• 内置常量未被识别：xlPasteValidation是Excel的内置常量，如果你的VBA项目是后期绑定（没引用Microsoft Excel Object Library），或者常量名拼写有误，粘贴参数会失效。可以直接替换成对应的数值3试试，改成Paste:=3。
• 数据验证依赖的数据源无效：如果H1的数据验证下拉列表是基于工作表专属的定义名称，或者数据源引用的是源工作表的相对范围，复制到目标工作表后，规则会因为找不到对应数据源而失效，看起来像是没复制成功。
• 剪贴板被意外覆盖：复制操作后到粘贴前，有其他程序或宏操作了系统剪贴板，导致原本复制的数据验证被替换，粘贴的内容自然不对。
• 目标工作表处于保护状态：如果wsTarget开启了工作表保护，且没有允许编辑目标单元格所在区域，粘贴操作会被后台阻止，不会弹出报错但也不会生效。

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