我不知道為什么腳本超出范圍錯誤

Question

我正在嘗試將數據從一個工作表復制到另一個工作表，但是當它計算單元格並開始粘貼數據時，它給了我一個超出范圍的錯誤，請幫助我或改進我的代碼

Private Sub CommandButton1_Click()
Dim nmrow As Long, avrow As Long
    
'check  last filled line in database
nmrow = Worksheets("SYSTEMDATA").Cells(Rows.Count, 1).End(xlUp).Row
    
For i = 2 To nmrow
    'check last filled line in mark sheet
    avrow = Worksheets("MKSHEET").Cells(Rows.Count, 1).End(xlUp).Row
    
    Worksheets("SYSTEMDATA").Cells(i, 7).Copy
      'pasting data into mark sheet(names)
    Worksheets("SYSTEMDATA").Paste Destination:=Worksheets(MKSHEET).Cells(avrow + 1, 2)
    
    'copying and pasting english into mksheet
    Worksheets("SYSTEMDATA").Cells(i, 13).Copy
    Worksheets("SYSTEMDATA").Paste Destination:=Worksheets(MKSHEET).Cells(avrow + 1, 3)
    
Next i
    
End Sub

Answer 1

您在目標參數的兩個命令中都缺少工作表 MKSHEET 周圍的引號。

如果您在代碼上方使用Option Explicit ，則可以輕松避免此類錯誤，因此您不能在不先聲明變量的情況下使用變量。 像這樣使用MKSHEET會導致未定義變量的警告，並且您的代碼甚至無法編譯。