如何用For Each循环遍历命名区域ProgramIDs填充ListBox？

你现在的代码其实是在遍历H列的行范围，但你的目标是命名区域ProgramIDs，这就是没实现需求的核心原因。我来帮你调整代码，同时保留你原有的H2长度判断逻辑：

修正后的For Each遍历代码 #

If Len(ProjectInformation.Range("H2").Value) = 7 Then
    Dim cell As Range ' 把变量名改成cell，比C更易懂
    ' 直接遍历目标命名区域ProgramIDs的每个单元格
    For Each cell In ThisWorkbook.Names("ProgramIDs").RefersToRange
        ' 跳过空单元格，避免ListBox出现空白项
        If Trim(cell.Value) <> "" Then
            Program_ListBox.AddItem cell.Value
        End If
    Next cell
End If

几个关键的调整说明 #

• 精准引用命名区域：用ThisWorkbook.Names("ProgramIDs").RefersToRange直接获取你定义的区域，不用再手动计算H列的最后一行，彻底避免和目标区域不匹配的问题。
• 优化变量可读性：把原代码里的C改成cell，后续维护代码时一眼就能看懂变量用途。
• 过滤空值：加了Trim(cell.Value) <> ""的判断，防止把空单元格内容加到ListBox里。

可选：更高效的批量赋值方法 #

如果你的命名区域数据量比较大，循环AddItem会有点慢，推荐用一次性赋值的方式，效率提升明显：

If Len(ProjectInformation.Range("H2").Value) = 7 Then
    Dim programData As Variant
    ' 把命名区域的数据读取到数组里
    programData = ThisWorkbook.Names("ProgramIDs").RefersToRange.Value
    
    ' 把二维数组转成ListBox支持的一维数组
    Dim tempArr() As String
    ReDim tempArr(1 To UBound(programData))
    
    Dim i As Long
    For i = 1 To UBound(programData)
        If Trim(programData(i, 1)) <> "" Then
            tempArr(i) = programData(i, 1)
        End If
    Next i
    
    ' 一次性把数组内容赋值给ListBox
    Program_ListBox.List = tempArr
End If

排查小技巧 #

如果调整后还是无法填充，检查这几点：

• 确认命名区域ProgramIDs确实存在：打开Excel的「公式」选项卡→「名称管理器」，看看这个名称的引用范围是否正确。
• 检查控件名称：确保Program_ListBox是你表单里控件的正确名称（如果是表单控件，引用方式会和ActiveX控件略有不同）。
• 查看区域权限：确认命名区域所在的工作表没有被保护，单元格也没有被隐藏。

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