[[20170801163900]] 『空白行をVBAで非表示にする』(うまきち) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『空白行をVBAで非表示にする』(うまきち)

よろしくお願いします。
SHeet1のA5〜A538にクリップボードよりデータを貼り付け、参照してA541〜A1073の範囲に時間データとして表示させています。
貼り付けした参照データが空白の場合は空白(=A5="","",A5)としています。

貼り付けるデータは毎回違い、多くなったり少なくなったりします。
参照して表示されるA541〜A1073(範囲指定)の空白セルの行を非表示するVBAを教えていただけますでしょうか。

A5〜A538のデータはマクロでクリアできるようにしています。
クリアした時点で空白セル行を非表示にして、貼り付けデータが入った時点で表示された行のみ表示できるようにしたいと思います。
挿入するモジュールも教えて頂けないでしょうか。
超初心者ですいません。よろしくお願いいたします

< 使用 Excel:Excel2008(Mac)、使用 OS:Windows10 >


 オートフィルタで空白行を非表示にすればどうですか?
( seiya) 2017/08/01(火) 18:11

非表示ではなくて、並べ替えるのはどうでしょうか。

 With Sheet1
     .Range(.Cells(541, 2), .Cells(1073, 2)) = "=IF(INDIRECT(ADDRESS(ROW(),COLUMN()-1))="",1074,ROW())"
     .Range(.Cells(541, 1), .Cells(1073, 2)).Sort .Cells(541, 2), xlDescending
     .Range(.Cells(541, 2), .Cells(1073, 2)) = ""
 End With

(:;:;:;:;:;) 2017/08/05(土) 20:38


間違えました。xlDescendingではなくてxlAscendingです。
(:;:;:;:;:;) 2017/08/05(土) 22:01

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.