求助：实现ListBox从工作表读取值并设置选中状态

问题分析 #

你之前的代码已经实现了将Listlocation的选中项（第一列值）以, 分隔写入工作表，现在需要反向操作：读取该单元格的分隔字符串，把ListBox中对应的项设为选中状态。你尝试的代码语法逻辑完全错误，With语句、AddItem的用法都不符合VBA规范，下面是正确的实现方案。

正确实现代码 #

Sub LoadListBoxSelections()
    Dim selectedValues As String
    Dim valueArr As Variant
    Dim x As Integer
    Dim val As Variant
    
    ' 读取目标单元格的存储值
    selectedValues = Sheets("Phonebook").Range("Data_start").Offset(TargetRow, 18).Value
    
    ' 先清空ListBox所有原有选中状态
    For x = 0 To Me.Listlocation.ListCount - 1
        Me.Listlocation.Selected(x) = False
    Next x
    
    ' 若单元格为空，直接退出流程
    If selectedValues = "" Then Exit Sub
    
    ' 将逗号分隔的字符串拆分为数组（和写入时的分隔符保持一致）
    valueArr = Split(selectedValues, ", ")
    
    ' 遍历ListBox所有选项，匹配则设置为选中
    For x = 0 To Me.Listlocation.ListCount - 1
        For Each val In valueArr
            If Me.Listlocation.List(x, 0) = val Then
                Me.Listlocation.Selected(x) = True
                Exit For ' 找到匹配项后跳出内层循环，提升效率
            End If
        Next val
    Next x
End Sub

关键逻辑说明 #

• 清空原有选中：避免之前的选中状态残留，保证每次加载的选中结果完全匹配单元格内容
• 字符串拆分：使用Split函数将单元格内的, 分隔字符串转为数组，和你写入时的分隔规则保持统一
• 匹配选中：通过双层循环遍历ListBox选项与目标值数组，找到对应项后设置Selected(x) = True
• 空值处理：如果单元格无内容，直接清空所有选中状态后退出，避免无效遍历

注意事项 #

• 确保Listlocation已经预先加载了所有可选项目（和写入时的选项集合一致），否则无法匹配到对应项
• 代码中List(x, 0)对应ListBox的第一列值，和你写入时的List(x, 0)保持对应，确保匹配的是同一列内容

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