2016-10-03 189 views
-3

我正在開發一個項目,我無法克服這個錯誤。這是我對該項目的說明:宏excel錯誤:應用程序定義的錯誤或對象定義的錯誤

編寫一個宏,將日期和價格數據移動到列A和B中(即日期數據應該以A14開始並以A379結束,價格數據應該以B14結束於B379)。提示:在錄製宏之前,您需要手動移動第一組數據。

這我我有什麼代碼:

Sub Macro2() 
' 
' Macro2 Macro 
' 

' 
Dim i As Integer 
For i = 1 To 88 

Selection.End(xlUp).Select 
Selection.End(xlUp).Select 
Selection.End(xlUp).Select 
ActiveCell.Offset(1, 0).Range("A1").Select 
Selection.End(xlToRight).Select 
ActiveCell.Range("A1:B4").Select 
Selection.Cut 
Selection.End(xlToLeft).Select 
Selection.End(xlDown).Select 
Selection.End(xlDown).Select 
Selection.End(xlDown).Select 
ActiveCell.Offset(1, 0).Range("A1").Select 
ActiveSheet.Paste 

Next i 

End Sub 

當我嘗試運行宏,我得到這個錯誤:應用程序定義或對象定義的錯誤

+1

你的指令提及**記錄宏**。不應再讀這個給你提示如何開始?此外,您在此處搜索了確切的錯誤消息,並通過(字面上)幾十個現有問題和答案進行了解,以瞭解其中是否可以幫助您。對? –

回答

-1

你顯然高估運行數據的結尾。這個錯誤來自這兩條線:

Selection.End(xlToRight).Select 
ActiveCell.Range("A1:B4").Select 

如果包含選擇的行是空的(或者如果沒有什麼選擇,這條線的權利......

Selection.End(xlToRight).Select 

...將列出XFD(工作表上的最大列)然後,下一行嘗試選擇一個範圍,其中包含4個不存在的單元格 - 在該上下文中的「B1:B4」不在右側

相關問題