Excel VBA - 選擇剪切粘貼錯誤

Question

我正在創建一個宏但我被困在這個剪切粘貼語句中，從昨天起就無法繼續。

這是問題：我選擇“D2到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 。

    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 ' insted of this using paste special. ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

收到以下錯誤：

2. 代碼更改：將選擇調整為3列。

    Range("D2:F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Resize(1, 3).Select 'ActiveSheet.Paste 

得到此錯誤：

3. 試On Error Resume Next語句。 它忽略了錯誤消息，但也沒有粘貼數據。

---

我正在尋找一種方法來忽略此錯誤消息並繼續粘貼。 我們通常在excel表中手動copy-paste或cut-paste時會出現此錯誤，我們可以選擇忽略和粘貼數據。 同樣有什么方法可以在宏中忽略它嗎？

Answer 1

避免不惜一切代價Select 。 嘗試這樣的事情

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

並且，如前所述，盡量避免選擇。