|
はじめて投稿します。表の途中で行を挿入したい時のためのマクロを組みました。
指定した行の下の行をコピーして貼り付けた後、
数値だけ消す(数式は残す)というやり方です。
でも、数値が入っていない行を指定すると
消すものがないせいか、エラーが起きてしまいます。
「該当するセルが見つかりません」とメッセージが出ます。
このエラーを解消する方法はないでしょうか?
※全体の行数を変えたくないので
1行挿入すると一番下の行を一行削除するようにしているのですが
エラーが出るとそこで処理が止まるため
行が増えたままになってしまい、困っています。
どうぞよろしくお願いします。
Sub 一行挿入()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Rows(ActiveCell.Row).Insert Shift:=xlDown
Rows(ActiveCell.Row - 1).Copy
Rows(ActiveCell.Row).PasteSpecial xlPasteAll
Rows(ActiveCell.Row).SpecialCells(2, 23).ClearContents
Rows("237:237").Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
|
|