無法修復此Range.cut錯誤。 @ Sheet5.Range(行(i),行(i + 4))。切片Sheet61.Range(行(i)) 任何幫助表示讚賞。VBA範圍對象所需的錯誤
Dim i As Long
Dim maxRow As Long
maxRow = 120
For i = 20 To maxRow Step 19
Sheet5.Range(Rows(i), Rows(i + 4)).Cut Sheet61.Range(Rows(i))
next i
貌似'Sheet5'不是活動工作表,請參閱[這個答案](https://stackoverflow.com/a/46775888/1188513)爲你在做什麼做錯了。你的縮進也是很奇怪的。粘貼你的代碼[** here **](http://rubberduckvba.com/indentation)並點擊「縮進!」 (免責聲明:我擁有該網站)。 –
(注意:在線壓頭區分大小寫,小寫'下一個'會令人困惑) –
抱歉,我的拼寫錯誤。實際上Excel會檢查它並在需要時進行更改。激活工作表沒有幫助,因爲所有其他腳本工作正常。 「IDENT」也沒有發現這種低檔錯字。 – Pavigo