エクセルのセル空白を隠す

質問

部門　番号　コード　商品名　業者　単位　分類　出数　原価　直営　単価差益

　3　　　1　　　1　　　油　　 油屋　　　　缶　 油　　　　1　　500　　550　　50
　3　　　2　　　2　　　水　　 水屋　　リットル　　水　 　1　　500　　550　　50
　 　　　3　　　
　 　　　4　
　3　　　5　　　5　　　栗　　 栗屋　　　　kg　 野菜　　1　　500　　550　　50
　 　　　6
　 　　　7　
　3　　　8　　　8　　　筍　　 筍屋　　　　kg　　野菜　　1　　500　　550　　50
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

上記のような図で、3・4・6の所が空白欄がありそれらを非表示にして上に詰めることって出来るのでしょうか。

部門　番号　コード　商品名　業者　単位　分類　出数　原価　直営　単価差益

　3　　　1　　　1　　　油　　 油屋　　　　缶　 油　　　　1　　500　　550　　50
　3　　　2　　　2　　　水　　 水屋　　リットル　　水　 　1　　500　　550　　50
　3　　　5　　　5　　　栗　　 栗屋　　　　kg　 野菜　　　1　　500　　550　　50
　3　　　8　　　8　　　筍　　 筍屋　　　　kg　　野菜　　　1　　500　　550　　50

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

上のように詰めて表示がしたいのですが、分らずに困っています。

出来ればボタン一つかなにがで出来れば良いのですが、宜しくお願いいたします。

回答No.2

osamuy · ベストアンサー

メニュー＞データ＞フィルタ＞オートフィルタで、コードのところを「空白以外」にしてみては。

参考URL：

http://support.microsoft.com/default.aspx?scid=kb;ja;883042

お礼

大変分りやすかったです、有難うございました。

回答No.6

websol

ＶＢＡを使います。
「フォーム」のツールバーからボタンを選択して好きなところにボタンを貼り付けます。
「マクロの登録」で「新規登録」以下のコードを貼り付けてください。
ワークシートのデータの範囲に、「範囲」という名前を付けます。
ボタンを押せば非表示になります。
なお、ボタン2　は全行を表示するボタンのコードです。
－－－－－－－－－－－－－－－－－－－－－－－－－

Sub ボタン1_Click()
Dim arange As Range
Set arange = Range("範囲")
For i% = 1 To arange.Rows.Count
If arange.Cells(i%, 1) = "" Then
arange.Cells(i%, 1).Rows.Hidden = 1
End If
Next
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－
Sub ボタン2_Click()
Dim arange As Range
Set arange = Range("範囲")
For i% = 1 To arange.Rows.Count
arange.Cells(i%, 1).Rows.Hidden = 0
Next
End Sub

回答No.5

misatoanna

完全に行を削除してよいのでしたら、こういう方法もあります。

1."部門"の列を選択して[編集]-[ジャンプ]から[セル選択]をクリック。
2."空白セル"を指定して[ＯＫ]をクリック。
3.[編集]-[削除]で表示されるボックスで、"行全体"を指定。

回答No.4

OMP

ボタン一つでやる方法。

「コード」と書かれたセルを選択して
ツールバーにある「AとZと↓」のボタンをクリック。

これでもできることはできます。
(オートフィルタの方がベターかな)

回答No.3

noname#188226

隠したい行番号（一番左側）を選択して、次に右クリックで非表示を選べばどうでしょうか。

回答No.1

OMP

オートフィルタをかけて「番号」以外のところで(空白以外のセル)を選べばOKです。