空白行を省いた 表をつくりたい

質問

第１表

A列 B列
1行 CODE 名前
100行 1001 あいうえお
333行 1002 ああいうえ
441行 1003 おあいうえ
512行 1004 えおいうえ
625行 1005 うえおあい
725行 1006 うえああい

第２表
第１表の空白行を省いた表
1行 CODE 名前
2行　　 1001 あいうえお
3行 1002 ああいうえ
4行 1003 おあいうえ
5行 1004 えおいうえ
6行 1005 うえおあい
7行 1006 うえああい

第１表は空白が多くて　見ずらいので　A2 からB725を　検索して
空白行を省いた表を作りたい。

回答No.1

misaki____ · ベストアンサー

上のメニューの「データ」→「フィルタ」→「オートフィルタ」を選択

出てきた▽マークを押して「空白以外」を選択

縮まった表をコピペ

以上

補足

有難う御座います。
セル上で行いたいです。

回答No.3

char_cat

マクロでやるとこうなります。
Sub 空白行削除()

Range("A2").Select

For I = 1 To 100 '100行目まで調べる
If Selection = "" Then
ActiveCell.Offset(0, 0).Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next I
End Sub

１００行目までの場合で記述してあります。
７２５行まで検索する場合は、
For I = 1 To 100
を
For I = 1 To 725
に変更してください。
簡単に作ってしまっているので、まどろっこしいマクロですが。

ただし、マクロを使い慣れていない方にはあまりお薦めしません。
ファイルを開くたびに、マクロの確認が出てきたり、いろいろ面倒なことが増えます。安全性を考えて、無理にマクロを使うことはお勧めしません。

他のやり方なら、思い切ってデータの並べ替えを行って、空白行とデータのある行をソートしてしまうやり方もありますよ。

補足

マクロ　とソートを使わないで　関数で空白行を抜いた一覧表が欲しいです。

回答No.2

Wendy02

こんにちは。

>セル上で行いたいです。

http://oshiete1.goo.ne.jp/qa3031625.html
それは、この前の、「数式で」という意味でしょうね。

別のシートで、
A　　　 B
CODE　 名前
1001　 (式）
1002　　　　　←フィルハンドル（右下端+)で、ドラッグコピー
　・
　・

B2:
=IF(COUNTIF(Sheet1!$A$2:$A$10000,A2),VLOOKUP(A2,Sheet1!$A$2:$B$10000,2,FALSE),"")

ということになると思います。

補足

>セル上で行いたいです。

​http://oshiete1.goo.ne.jp/qa3031625.html​
それは、この前の、「数式で」という意味でしょうね。
そうです
COUNTIFを　勉強してみます。