|
ゆと さん、こうさん、Kentさん,こんにちは。
>このようなエラーが発生した場合は、大きなプロシージャを
>複数のプロシージャに分割したり、モジュール レベルの宣言を別のモジュールに
>移動することで、エラーを回避することができます。
たとえば
1行目を101行目にコピーする場合、
Sub Macro1()
Application.Left = 44.5'EXCELウィンドウをうごかした
Application.Top = 49.75'EXCELウィンドウをうごかした
Rows("1:1").Select '1行目選択
Selection.Copy 'Ctrl + C
ActiveWindow.SmallScroll Down:=84 'ウィンドウをスクロール
Rows("101:101").Select '101行目選択
ActiveSheet.Paste 'Ctrl + V
End Sub
記録するとこんな感じですが、
↓実際必要なのはこれだけ
Sub Macro1()
Rows("1:1").Copy Destination:=Rows("101:101")
End Sub
なので、いらない部分を削ってスリムにして、それでも大きい場合は分割すればいいかもしれません。
|
|