Excel如何保留可变长度行的最后n列？VBA宏异常求助

你的宏出现问题的核心原因是：删除列的操作会改变整个工作表的列布局。当你删除某一行的前几列后，后续行的所有列都会向左偏移，导致后续循环中计算lastColumn时，使用的是已经偏移后的列位置，自然无法正确定位每行的最后有效数据列。

Sub keep_last_n_columns()
    Dim selectedRange As Range
    Dim numColumnsToKeep As Integer
    Dim dataArr As Variant
    Dim resultArr As Variant
    Dim rowCount As Integer, colCount As Integer
    Dim i As Integer, j As Integer, lastDataIndex As Integer, k As Integer
    
    ' 让用户选择数据区域
    On Error Resume Next
    Set selectedRange = Application.InputBox("Select a range:", Type:=8)
    On Error GoTo 0
    
    If selectedRange Is Nothing Then
        MsgBox "No range selected. Macro canceled.", vbExclamation
        Exit Sub
    End If
    
    ' 让用户输入要保留的列数
    On Error Resume Next
    numColumnsToKeep = Application.InputBox("Enter the number of columns to keep for each row:", Type:=1)
    On Error GoTo 0
    
    If numColumnsToKeep <= 0 Then
        MsgBox "Invalid number of columns. Macro canceled.", vbExclamation
        Exit Sub
    End If
    
    ' 将选中区域的数据读入数组，提升处理效率
    dataArr = selectedRange.Value
    rowCount = UBound(dataArr, 1)
    colCount = UBound(dataArr, 2)
    
    ' 创建结果数组，行数和原数据一致，列数为要保留的列数
    ReDim resultArr(1 To rowCount, 1 To numColumnsToKeep)
    
    ' 遍历每行处理
    For i = 1 To rowCount
        ' 找到当前行最后一个非空数据的索引
        lastDataIndex = 0
        For j = colCount To 1 Step -1
            If Not IsEmpty(dataArr(i, j)) Then
                lastDataIndex = j
                Exit For
            End If
        Next j
        
        ' 如果该行有效数据列数大于要保留的列数，提取最后n列；否则保留全部数据（不足n列则留空）
        If lastDataIndex > 0 Then
            k = 1
            ' 从最后有效数据列往前取n列
            For j = Application.Max(1, lastDataIndex - numColumnsToKeep + 1) To lastDataIndex
                If k <= numColumnsToKeep Then
                    resultArr(i, k) = dataArr(i, j)
                    k = k + 1
                End If
            Next j
        End If
    Next i
    
    ' 清除原区域的内容，将结果数组写回
    selectedRange.ClearContents
    selectedRange.Resize(rowCount, numColumnsToKeep).Value = resultArr
End Sub

1. 改用数组处理：避免直接操作工作表列导致的偏移问题，数组处理速度更快，也不会影响原工作表的列布局。
2. 精准定位每行最后有效数据：对每行从后往前遍历，找到第一个非空单元格的索引，确保准确获取该行的有效数据范围。
3. 提取最后n列数据：根据每行的有效数据长度，计算需要提取的起始位置，将最后n列数据存入结果数组。
4. 批量写回数据：清除原区域内容后，将处理好的结果数组批量写入，避免多次操作工作表的性能损耗。

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