复制和粘贴最后 5 列问题的宏

Question

我刚刚编写了一个宏来查找最后 5 列的数据，然后将其复制并粘贴到最后一列之前。我在一个虚拟文档中构建了这个宏，以免损坏我当前的文件，并让宏使用以下代码正常工作：

Sub CopyLastFiveRows()

LastColumn = Sheets("Sheet2").Cells.Find("*", [a1], , , xlByColumns, xlPrevious).Column
On Error GoTo 0

Sheets("Sheet2").Columns(LastColumn - 4).Resize(, 5).Select
Selection.Copy

'   Enter the rest of your paste code here

Sheets("Sheet2").Columns(LastColumn + 1).Select
ActiveSheet.Paste

End Sub

当我在我的实际工作文件中剪切并粘贴上述内容时，如果数据选项卡名称为“Sheet2”，则它可以正常工作，但是如果我将选项卡名称更改为“NFG”并将所有“Sheet2”替换为上面的宏我得到一个“运行时错误'1004'范围类的选择方法失败”。有点困惑。如果有人可以帮助我，那就太好了。谢谢。

注意 - 我忘记提及的另一件事是，我要将此宏分配给工作簿前页上的按钮。我认为这可能会导致问题，因为这是我在测试过宏的文档之间唯一能想到的变量。

Answer 1

使用以下代码复制最后五列的所有行

Sub CopyLastFiveColumns()

    Dim lngLastRow     As Long

    With ThisWorkbook.Worksheets("NFG")
         lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
         .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -4).Resize(lngLastRow, 5).Copy .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
    End With

End Sub

Answer 2

使用下面的代码。希望它能工作。

Sub CopyLastFiveColumns()

        With ThisWorkbook.Worksheets("NFG")                 
             .Range(.Cells(1, .Columns.Count).End(xlToLeft), .Cells(1, .Columns.Count).End(xlToLeft).Offset(, -4)).Copy .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
        End With

 End Sub