Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34659 / 76734 ←次へ | 前へ→

【47281】行挿入のマクロについて
質問  てんてん  - 07/3/7(水) 9:04 -

引用なし
パスワード
   はじめて投稿します。表の途中で行を挿入したい時のためのマクロを組みました。
指定した行の下の行をコピーして貼り付けた後、
数値だけ消す(数式は残す)というやり方です。
でも、数値が入っていない行を指定すると
消すものがないせいか、エラーが起きてしまいます。
「該当するセルが見つかりません」とメッセージが出ます。
このエラーを解消する方法はないでしょうか?
※全体の行数を変えたくないので
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
1 hits

【47281】行挿入のマクロについて てんてん 07/3/7(水) 9:04 質問
【47282】Re:行挿入のマクロについて Jaka 07/3/7(水) 10:25 発言
【47283】Re:行挿入のマクロについて てんてん 07/3/7(水) 10:46 質問
【47284】Re:行挿入のマクロについて りん 07/3/7(水) 11:33 発言
【47285】Re:行挿入のマクロについて てんてん 07/3/7(水) 12:06 お礼
【47339】Re:行挿入のマクロについて てんてん 07/3/8(木) 13:04 質問

34659 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free