VBA宏复制下拉列表仅保留值，如何保留数据验证？

可能的问题点及修复方案 #

1. 确认复制流程完整 #

你的代码只执行了粘贴操作，但缺少先复制源单元格的关键步骤。剪贴板里没有源单元格的数据验证信息，自然无法粘贴成功。完整的操作流程应该是：

' 先复制源单元格（包含数据验证）
wb_from.Sheets("源工作表名称").Range("源单元格范围").Copy
' 再粘贴数据验证到目标位置
wb_to.Sheets("Core").Range(cel_loc_new).PasteSpecial Paste:=xlPasteValidation
' 清除剪贴板（可选，避免后续操作干扰）
Application.CutCopyMode = False

2. 检查源单元格的验证有效性 #

先手动确认源单元格确实配置了数据验证：选中源单元格，查看Excel「数据」选项卡下的「数据验证」是否有有效规则。如果源本身没有下拉列表配置，粘贴操作自然不会生成验证。

3. 处理数据验证的引用路径问题 #

如果源数据验证的下拉列表是引用其他单元格（比如=Sheet1!A1:A10），复制到新工作表/工作簿后可能因为引用失效导致验证丢失：

• 跨工作簿引用时，目标工作簿必须处于打开状态
• 可以将源验证的引用改为绝对路径，或者粘贴后重新调整目标单元格的验证引用范围

4. 改用直接复制单元格的方式 #

如果PasteSpecial仍有问题，尝试直接复制整个单元格的所有属性（包括数据验证、格式、值）：

wb_from.Sheets("源工作表名称").Range("源单元格范围").Copy _
    Destination:=wb_to.Sheets("Core").Range(cel_loc_new)

这种方式会完整复制单元格的全部特性，无需拆分粘贴步骤。

内容的提问来源于stack exchange，提问作者Salamin Piko