我是Excel和VBA編程的新手,我已經創建了考勤表,並希望通過按按鈕將數據從一張表複製到另一張表(按月計)。運行時錯誤'9',下標超出範圍錯誤
,我在下面的行收到錯誤
lastrow1 = Sheets(「Sheet14」).Range(「A」 & Rows.Count).End(xlUp).Row
我的代碼
Sub Button2_Click()
Dim i As Long, j As Long, lastrow1 As Long, lastrow2 As Long
Dim myname As String
lastrow1 = Sheets(「Sheet14」).Range(「A」 & Rows.Count).End(xlUp).Row
For i = 7 To lastrow1
myname = Sheets(「Sheet14」).Cells(i, 「A」).Value
Sheets(「sheet2」).Activate
lastrow2 = Sheets(「sheet2」).Range(「A」 & Rows.Count).End(xlUp).Row
For j = 7 To lastrow2
If Sheets(「sheet2」).Cells(j, 「A」).Value = myname Then
Sheets(「Sheet14」).Activate
Sheets(「Sheet14」).Range(Cells(i, 「D」), Cells(i, 「AH」)).Copy
Sheets(「sheet2」).Activate
Sheets(「sheet2」).Range(Cells(j, 「D」), Cells(j, 「AH」)).Select
ActiveSheet.Paste
End If
Next j
Application.CutCopyMode = False
Next i
Sheets(「Sheet14」).Activate
Sheets(「Sheet14」).Range(「D7」).Select
End Sub
@ YowE3K你是對的,我注意到後,謝謝:) –
lastrow2 =表(「sheet2」)。範圍(「A」&表(「sheet2」).Rows.Count).End(xlUp)。行 – Kanan