VBA为动态创建的工作簿添加下拉列表不显示问题求解

下面是导致下拉不显示的常见原因及对应修复方法：

1. 数据验证引用路径错误 #

你原代码里的验证公式写死了工作表名（如=Sheet1!A1:A6），工作表导出到新工作簿后要么表名不符、要么引用仍指向原工作簿导致失效。
如果下拉选项的数据源和下拉单元格在同一工作表，直接省略工作表名写相对引用即可：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=A1:A6"

如果必须指定工作表名，就动态获取当前工作表名称，避免写死：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="='" & tempSheet.Name & "'!A1:A6"

（tempSheet是你提前赋值的临时工作表对象）

2. 验证没有加到正确的工作表上 #

VBA里不指定所属工作表的Range默认指向运行代码时的活动工作表，如果添加验证时临时工作表不是活动表，验证就会加到其他表上，导出的表自然没有下拉。
所有Range前都明确指定所属工作表即可：

' 提前将你的临时工作表赋值给tempSheet变量
With tempSheet.Range("J2").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="=A1:A6"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

3. 导出操作清除了数据验证 #

如果导出时你是只复制单元格值到新工作簿，就会丢失数据验证；如果只复制了下拉所在区域、没复制数据源区域，也会导致下拉失效。
建议直接用工作表Copy方法导出，会完整保留所有格式、验证和数据：

' tempSheet为你的临时工作表对象
tempSheet.Copy ' 直接将整个表复制生成新工作簿
' 保存新工作簿
ActiveWorkbook.SaveAs Filename:="你的保存路径\导出文件.xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close SaveChanges:=False

4. 新工作簿显示配置问题 #

打开导出的文件后，检查「文件→选项→高级→此工作簿的显示选项→为对象显示全部」是否勾选，若选择了「隐藏所有对象」就不会显示下拉箭头。

你可以先在原工作簿的临时表上测试验证是否正常生成，确认加验证的代码没问题后，再排查导出环节的问题即可。

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