[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『指定した部分の空白行を削除する』(ハチミツ)
いつもお世話になっております。
マクロ初心者です。
マクロで、指定した○○行目〜○○行目迄に空白行が発生したら削除をしたいです。
本当は、非表示にしたいのですが
非表示マクロは、難しいようなので、まずは削除からやってみたいと思っています。
一応自分が参考にしているホームページを貼り付けます。
https://kokodane.com/macro21_2.htm
コード
Sub 空白行を削除()
Selection.SpecialCells(xlCellTypeBlanks).Select '空白セル削除
Selection.EntireRow.Delete '行全体を削除
'
End Sub
宜しくお願い致します。
< 使用 Excel:Excel2013、使用 OS:Windows8 >
質問は何ですか? (seiya) 2017/12/15(金) 10:56
Selection
↓
Range("5:10")
とか、
Range("A5:D10")
とか空白セルを検索するセル範囲を指定してやってください。
ただし、空白セルがないとエラーになりますので、
on error ステートメントでエラーを回避します。
Sub 空白行を削除()
dim rng as range
on error resume next set rng = Range("A5:D10").SpecialCells(xlCellTypeBlanks) on error goto 0
if not rng is nothing then rng.EntireRow.Delete '行全体を削除 End Sub
ちなみにSelectしなくても文字(コード)で書いて指定できるので、
基本的にSelectせずに処理を書きます。
それから、
行の非表示も、マクロの記録をやってみればコードは得られます^^
(まっつわん) 2017/12/15(金) 11:42
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.