Excel VBA：实现UserForm ListBox点击项跳转至对应行

要实现点击ListBox选项跳转至对应行，核心是记录每个ListBox项对应的原始行号——你原来的代码会删除空项，导致ListIndex和原始行号无法直接对应。以下是修改后的完整代码：

1. 修改UserForm初始化逻辑（替换原Initialize和List过程） #

直接遍历目标单元格，只添加非空内容，同时记录每行的行号：

Private Sub UserForm_Initialize()
    Dim cell As Range
    ListBox1.Clear
    
    ' 遍历AQ3到AQ255的所有单元格
    For Each cell In Range("AQ3:AQ255")
        ' 跳过空单元格
        If Trim(cell.Value & vbNullString) <> vbNullString Then
            ' 将单元格内容添加到ListBox
            ListBox1.AddItem cell.Value
            ' 把当前单元格的行号存入ListBox的ItemData（用于后续跳转）
            ListBox1.ItemData(ListBox1.ListCount - 1) = cell.Row
        End If
    Next cell
End Sub

2. 实现点击跳转功能 #

在ListBox1_Click事件中，取出记录的行号并跳转：

Private Sub ListBox1_Click()
    Dim targetRow As Long
    
    ' 确保有选中项
    If ListBox1.ListIndex = -1 Then Exit Sub
    
    ' 获取选中项对应的原始行号
    targetRow = ListBox1.ItemData(ListBox1.ListIndex)
    
    ' 激活目标工作表（根据你的需求替换为实际表名，比如Sheet2）
    Sheet1.Activate
    ' 跳转到目标行并选中
    Rows(targetRow).Activate
End Sub

补充说明 #

• 若需要指定跳转的工作表，把Sheet1.Activate改成你的工作表名称，比如ThisWorkbook.Worksheets("数据页").Activate
• 另一种可选方式是用ListBox的多列存储行号（隐藏第二列），逻辑和上面一致，只是行号存在ListBox的第二列中

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