Excel VBA復制運行時錯誤'1004'

Question

我無法弄清楚我的VBA出了什么問題：

Private Sub CommandButton4_Click()
    Sheets("Opgave").Select
    Range("F9:G14").Select
    Selection.Copy
    Sheets("Reserve").Select
    Range("E3").Select    
End Sub

Excel說Range("F9:G14").Select錯誤！

Answer 1

您需要Activate表，因為Range隱式引用了活動工作表，並且您錯誤地假設Select某些內容將必然Activate它。

我已經使用"Sheet1"和"Sheet2"執行了您的代碼，沒有引發任何錯誤，選擇了“ Sheet1！F9：G14”進行復制，選擇了“ Sheet2！E3”，這似乎正是該代碼想要實現的目標。

我還是要說...

避免出現問題，避免在VBA代碼中Select和Activate 。

工作表具有一個CodeName屬性，您可以將其從Sheet1更改為OpgaveSheet ，或者從Sheet2更改為ReserveSheet 。 那么此代碼是有效的：

OpgaveSheet.Range("F9:G14").Copy ReserveSheet.Range("E3")

工作表的Name是在Excel中的選項卡中顯示的文本。 您還可以使用它來獲取對工作表的引用：

Dim opgaveSheet As Worksheet
Set opgaveSheet = ThisWorkbook.Worksheets("Opgave")

Dim reserveSheet As Worksheet
Set reserveSheet = ThisWorkbook.Worksheets("Reserve")

而且，當您要使用特定范圍時，請保留對它的引用，而不是Select它並使用Selection ：

Dim source As Range
Set source = opgaveSheet.Range("F9:G14")

Dim destination As Range
Set destination = reserveSheet.Range("E3")

source.Copy destination

不經常與工作表交互的代碼（通過Select和Activate ）將表現得更好，將更易於遵循，調試和維護，並且不那么容易出錯。