Excel VBA -选择剪切粘贴错误

Question

我正在创建一个宏，但是我被这个剪切粘贴语句卡住了，从昨天起无法继续运行。

问题是:我正在选择列"D2 to F2“中的所有行，并将其粘贴到"A1”处。这是它的代码：

Range("D2:F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste    

获取此错误：

​

以下是我尝试过的：

1. 代码更改:使用PasteSpecial而不是简单的Paste。 范围(“D2:F2”).Select范围(选择，Selection.End(xlDown)).Select Selection.Cut Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1，0).Select 'ActiveSheet.Paste‘insted .ActiveSheet.PasteSpecial Paste:=xlPasteValues，Operation:=xlNone，SkipBlanks:=False，Transpose:=False

获取以下错误：

​

1. 代码更改:将所选内容调整为3列。 范围(“D2:F2”).Select范围(选择，Selection.End(xlDown)).Select Selection.Cut Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1，0).Resize(1，3).Select 'ActiveSheet.Paste

获取此错误：

​

1. 尝试过On Error Resume Next语句。它忽略了错误消息，但也没有粘贴数据。

我正在寻找一种方法来忽略此错误消息并继续粘贴。通常情况下，当我们在excel表中手动copy-paste或cut-paste时，我们可以选择忽略和粘贴数据。类似地，在宏中是否存在忽略它的方法？

Answer 1

at all costs。试一试这样的方法

Sub foo()
Dim rng
Set rng = Range("D2:F" & GetLastRow(4))

rng.Cut
Application.Goto Range("A1").Offset(GetLastRow(1))
ActiveSheet.Paste

End Sub

Function GetLastRow(col As Long)
' modified from:
' https://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba

If Application.WorksheetFunction.CountA(Columns(col)) <> 0 Then
    GetLastRow = Columns(col).Find(What:="*", _
                  After:=Cells(Rows.Count, col), _
                  Lookat:=xlPart, _
                  LookIn:=xlFormulas, _
                  SearchOrder:=xlByRows, _
                  SearchDirection:=xlPrevious, _
                  MatchCase:=False).Row
Else
    GetLastRow = 1
End If

End Function

Answer 2

正如其他答复和评论中提到的那样，不惜一切代价避免使用.Select。它是许多常见错误的根源。下一个解决方案使用一个简单的函数查找最后一行的数据。

Option Explicit

Function lastrow(rng_str As String)

    ' Adapted from http://www.rondebruin.nl/win/s9/win005.htm
    Dim rng As Range: Set rng = Range(rng_str)
    Dim r As Range
    lastrow = rng.Column

    With ActiveSheet
        For Each r In rng.Columns
            lastrow = Application.Max(lastrow, .Cells(.Rows.Count, r.Column).End(xlUp).Row)
        Next
    End With

End Function

Sub test()

    Dim source_rng As Range
    Dim dest_rng As Range
    Dim nr_rows As Long

    ' Maximum number of rows from D to F
    nr_rows = lastrow("D2:F2")

    Set source_rng = Range("D2:F" & nr_rows)
    Set dest_rng = Range("A1")

    source_rng.Cut
    dest_rng.Activate
    ActiveSheet.Paste

End Sub

HTH ;)

Answer 3

问题是，您正在尝试选择一个单元格，该单元格位于表末尾的一个单元格之下。停止后，您有一个偏移量，这将使您的单元格更低。看看这个：

Option Explicit
Sub test()
    Range("D2:F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut

    Range("A1").Select
    Selection.End(xlDown).Select

    Debug.Print ActiveCell.Address
    Stop

    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste

End Sub

正如已经说过的，尽量避免选择。