VBA中ComboBox使用变量范围遇问题，代码报错求解决

核心错误点 #

1. 变量类型错配：你需要存储的是命名区域的名称字符串（比如"DOS"或"NDC"），但代码里把CBR声明成了Range对象，完全不符合实际需求。
2. 区域引用语法错误：ActiveSheet.Range.CBR.Select是无效语法，正确引用命名区域的方式是Range(区域名称字符串)。

修正后的完整代码 #

' 改为String类型，用来存储命名区域的名称（比如"DOS"）
Public CBR As String

Private Sub ComboBox1_Change()
    ' 将ComboBox选中的名称赋值给CBR
    CBR = ComboBox1.Value
    Call Copy_header
End Sub

Sub Copy_header()
    Dim targetWs As Worksheet
    ' 直接引用目标工作表，避免Activate/Select（VBA最佳实践）
    Set targetWs = Workbooks("Book2").Worksheets("DropDown")
    ' 通过名称字符串引用命名区域
    targetWs.Range(CBR).Select
End Sub

额外注意事项 #

• 确保Book2的DropDown工作表中，确实存在名为DOS和NDC的命名区域（不是普通单元格）。
• 尽量避免使用Select/Activate，如果你的需求是复制区域，直接写targetWs.Range(CBR).Copy即可，无需选中。
• 要保证ComboBox的下拉选项文本，和命名区域的名称完全一致（VBA里大小写敏感）。

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