指定した行を削除するには

Question 5.1 Previous Next
行削除のマクロを作っていて、指定した行が削除出来ません。ロータスを使用していた時は、出来たのですが。
もしかしたら、入力待ちにしなくてはいけないと思うのですが、そうすればいいのかわかりません。知恵をかして下さい。
Answer   Copyright (C) 1998.5.21 永井善王
行削除のマクロはワークシートが非保護で、かつ、アクティブになっていれば、 通常は実行されると思いますが、うまく行きませんか?
マクロを実行する前にシートが保護になっていないか確認して、もし、なっていたら非 保護にしておくか、非保護にするマクロを入れるかしてみてください。
シートを非保護にするマクロがわからない場合は、「
Sub ブックシートの保護_非保護()」を 参考にしてください。

行を削除するためのマクロは、「
Sub 行を挿入_削除する()」として載っていますが、下記に 組み合わせて書いておきます。
     Sub 行を削除するマクロ()
         Workbooks("BBB.xls").Activate       'ブックをアクティブにする ※1    
         Sheets("SSS").Select                'シートを選ぶ ※2
         Rows("4:6").Delete Shift:=xlUp      '4:6には削除する行の上下行番号を記入 ※3
     End Sub 
<コメント>
※1 BBBにはブック名を記入
※2 SSSにはシート名を記入
※3 この場合は4行から6行目が削除されます


 

Excel VBA Macro