如何用VBA将列表框选中行剪切至数据末尾？当前代码失效

我现在遇到个麻烦：点击CommandButton3的时候，想把ListBox1选中项对应的数据行，剪切粘贴到数据区域的最后一行，但写的代码跑不起来。我的代码如下：

Private Sub CommandButton3_Click() 
    Dim i As Integer 
    For i = 1 To Range("A10000").End(xlUp).Row 
        If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then 
            Rows(i).Select 
            Selection.Cut 
            Cells(Range("A100...

问题分析&修复方案 #

先梳理下原代码可能踩的坑：

• 未处理未选中状态：如果用户没在ListBox里选任何内容，ListBox1.ListIndex会返回-1，直接访问ListBox1.List(-1)会触发报错，得先做选中判断。
• 循环遍历的逻辑漏洞：找到匹配行后直接剪切，会导致后续行的行号错乱（比如删除第5行，原第6行变成第5行，循环会跳过它）；而且用Select+Selection的写法既低效又容易因选中状态变化出问题。
• 最后一行的判断不完整：原代码没写完，正确的目标行应该是数据区域最后一行的下一个空行，得用更可靠的方式获取。

给你整理好的修复代码：

Private Sub CommandButton3_Click()
    Dim targetRow As Long
    Dim lastDataRow As Long
    
    ' 先判断是否有选中项
    If ListBox1.ListIndex = -1 Then
        MsgBox "请先在列表框中选择一项！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历找到匹配行
    For targetRow = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(targetRow, 1).Value = ListBox1.List(ListBox1.ListIndex) Then
            ' 获取数据区域最后一行的下一行
            lastDataRow = Range("A" & Rows.Count).End(xlUp).Row + 1
            
            ' 直接剪切粘贴，避免使用Select提升稳定性
            Rows(targetRow).Cut Destination:=Cells(lastDataRow, 1)
            
            ' 找到匹配行后退出循环，避免重复处理
            Exit For
        End If
    Next targetRow
    
    ' 可选：如果遍历完没找到匹配行，提示用户
    If targetRow > Range("A" & Rows.Count).End(xlUp).Row Then
        MsgBox "未找到对应的数据行！", vbInformation
    End If
End Sub

额外优化说明 #

• 把Integer换成Long：Excel的行数可能超过Integer的最大值（32767），用Long能避免溢出错误。
• 移除Select操作：直接通过对象方法操作单元格，代码更高效也不容易受界面选中状态影响。
• 增加交互提示：补充了未选中、未找到匹配行的提示，让操作逻辑更清晰。

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