マクロexcel error：アプリケーション定義またはオブジェクト定義のエラー

Question

私はプロジェクトで作業していますが、このエラーが発生することはありません。

日付と価格のデータを列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 

私はマクロを実行しようとすると、私はこのエラーを取得する：アプリケーション定義またはオブジェクト定義のエラー

Answer 1

あなたは明らかにオーバーしていますあなたのデータの終わりを走らせる。選択範囲を含む行が空（または選択の右側に何も存在しない場合は、この行の場合

Selection.End(xlToRight).Select 

...

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

：エラーは、これらの2行から来ています...あなたをXFD列（ワークシート上の最大列）に移動させます。次に、存在しない4つのセルを含む範囲を選択しようとします。そのコンテキスト内の "B1：B4"