- ベストアンサー
エクセルで空白のセルのある行を非表示にする方法
TTakの回答
- TTak
- ベストアンサー率52% (206/389)
pc-cadさんこんにちは こんな感じでしょうか Sub SAMPLE() Dim usedCellCount As Integer '↓B列に何行目まで入力されているかを取得 usedCellCount = Range(Cells(100, 2).End(xlUp).Address).Row '↓100行目まで入力されていたらhiddenを実行しない If usedCellCount = 100 Then Exit Sub '↓入力されている次の行から100行目までを非表示 Rows(usedCellCount + 1 & ":100").Hidden = True End Sub 注意事項として、すべての行のHiddenのプロパティを一度Falseにして (一旦すべての行を表示して)この処理を行った方がよいでしょう。 EXCEL2000 Win98seにて動作確認
関連するQ&A
- 空白セルを非表示に
A1:B50の範囲にデータが入っています。A1:A50までに空白のセルがあれば、その行を非表示にするマクロを組みました。 Dim rw As Integer Application.ScreenUpdating = False For rw = 1 To 50 If Range("A" & rw) = "" Then Rows(rw).EntireRow.Hidden = True End If Next Application.ScreenUpdating = True これをA1:B50の範囲でどちらか入っているデータの多い方に合わせて非表示にするときはどうなるのでしょうか。説明がヘタですみません・・・ たとえばデータの入っているセルが、 A列がA1:A10まで、B列がB1:B:15までで以下空白の場合、今のマクロではA列でしか空白を判定しませんよね?なのでA11以下は空白にされてしまい、B12:B15までのデータも一緒に非表示されてしまいます。 どうしたらよいか教えて下さい。
- ベストアンサー
- オフィス系ソフト
- 特定のセルが空白だったら、その行を非表示にしたい。。。
A2からV500にデータが入っています。 すべてにデータが入るわけではなくて、 B列が空白セルの行は、非表示にして印刷をかけたいのですが、可能ですか? うーん…うまく説明できないー。
- ベストアンサー
- Visual Basic
- Excelで空白セルをつめて表示させたい
お世話になります。 Excelの操作について教えてください。 A列 B列 1行 3 2行 2 3行 5 4行 4 1 ↓ A列 B列 1行 3 2 2行 5 1 3行 4 4行 と、空白でないのセルだけを、上に詰めて別のシートに表示させたいです。 出来れば関数を使って行いたいです。 いくつか同じような質問があったのですが、なかなかうまくいきません。 どなたか、ご教授下さい。
- 締切済み
- 財務・会計・経理
- エクセルでセルが空白だったらその行を表示させない方法を教えてください。
エクセルでセルが空白だったらその行を表示させない方法を教えてください。 こんにちわ。 色々調べたのですが、分からずアドバイスをいただきに来ました;; 何とかならないかと困っていますので、お願いいたします。 具体的には A B C D ... 1 ◎ あ い う 2 か き く 3 ◇ さ し す 4 △ た ち つ . . のようなA2が空白だった場合下記のように ↓↓↓↓↓↓↓↓ A B C D ... 1 ◎ あ い う 3 ◇ さ し す 4 △ た ち つ . . のようにA2が空白だった場合「削除」ではなく「表示しない」としたいです。 ちなみにoffice2003のエクセルを使用しています。 マクロを組まないとできないのであれば、出来れば具体的なソース等を乗せていただけると幸いです。(マクロは勉強中で全然できないので^^;) よろしくお願いいたしますm(_ _)m
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ、空白行(セル)の挿入
データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 (A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。) ご教授頂きたく、お願いします。
- 締切済み
- その他(Windows)
- Excel 空白行を上に詰めるマクロ
関数を使用して、sheet1からsheet2に必要なデータを抜き取りました。 sheet2のセルには関数が入っています。 sheet2の抽出データには1行単位(まれに2~3行続けて)空白が発生します。 この行を削除し、かつ上に詰めて表示をしたいのですが、下記の条件で実行可能でしょうか? (例) sheet1 ⇒ sheet2 A B C A B C 1 あ い う 1 あ い か 2 か 2 (空白行) 3 き く け 3 き く し 4 こ さ し 4 (空白行) ●2行目、4行目を削除し、且つ5行目以降に入力されている関数は削除したくない ●空白行削除のマクロは自動?(sheet1のデータを変更したら)で実行できるようにしたい よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでA列セルが空白の時その行に罫線を引くには
エクセルでA列セルが空白の時、その行の下側のみに2重罫線を引くマクロを教えて下さい。 色々試しましたがうまくいきません。例えば下記の様な表で3行目、7行目、12行目の各下側にのみ2重罫線を引くマクロです。行数と空白行は、日々取り込んでいるデータによって変わります。知恵をお貸し下さい。(A列空白セルのC列にはSUM関数を入れております。うまく表記が出来ませんので念のため) A列 B列 C列 1行 123 酒 100 2行 123 酒 100 3行 ======================== 4行 215 ビール 200 5行 215 ビール 200 6行 215 ビール 200 7行 ========================= 8行 324 ワイン 300 9行 324 ワイン 300 10行 324 ワイン 300 11行 324 ワイン 300 12行 ========================
- 締切済み
- その他MS Office製品
- 【マクロ】クリックすると空白を含む列を非表示に
上司にExcelのデータが見づらいと言われて困っています。 下記のようなマクロやVBAを教えていただけないでしょうか? 例えば、 A2のセルをクリックすると、その行(2行目)から空白セルを検索して、そのセルを含む列を非表示にして、データが入っている列だけを表するようなマクロってないでしょうか? (要は、C2とE2が空白セルのとき、A2をクリックして、A/B/D/F~の列だけ表示されるようになるマクロです。 同様に3行目でも、空白セルがB3、C3なら、A3をクリックした時、A/D/E…列だけ表示されて、B・C列が非常時になるような。) 似たような機能があれば、A2クリックでなく別にボタン等を作っても構いません。 ややこしくて、申し訳ございませんが、本当に困っているので、 どうかよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- 空白行削除
宜しくお願いします。 1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。 空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部) ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルで1行ごとに空白行を挿入し、挿入した空白行に色をつけたいです
タイトルの通りです。 エクセル(2000)で、データはシート毎に件数が違います。 各シート毎にそれぞれ1行毎、空白行を挿入し、挿入した空白行のA列~G列までに薄いグレーの色をつけるマクロを入れたいのですが、うまくいきません。 詳しい方、教えて下さい。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。 せっかく教えていただいたのですが、思う通りにいきませんでした。 動作確認までしていただいたのに・・・。 ワタクシの説明のしかたが悪かったのだと思います。 ご好意感謝いたします。