Search

  毎日にもっと楽~を! BLOG Tokyo

2008年4月11日

【EXCEL】隣の列が空白ならば、その行を削除する

ID RID NAME
----------------------------
10 10 HongKong
11 " " GangZhou
12 12 Beijin
13 " " Shanghai
14 " " Tongkou
15 " " Torphan

ID、RID、NAME列があって、RIDがある列だけの表にしたい場合がある。これが1000行とかになるとかなり面倒だ。これを毎日ルーチンでやらないといけない場合、うんざりだ。簡単に出来ないだろうか。

やっぱりVBAだろう。意外に簡単。実行するとこうなる。

ID RID NAME
----------------------------
10 10 HongKong
12 12 Beijin

Sub 行を削除()

Dim i As Long
With Range("A2")
For i = .CurrentRegion.Rows.Count To 1 Step -1
If .Offset(i, 1) = "" Then .Offset(i, 0).EntireRow.delete
Next i
End With
End Sub

参考・解説はこちら



Bookmark and Share


編集長のおすすめの一冊!2010

comments

comment form

(BLOG Tokyo にはじめてコメントされる場合、不適切なコメントを防止するため、掲載前に管理者が内容を確認しています。適切なコメントと判断した場合コメントは直ちに表示されますので、再度コメントを投稿する必要はありません。)

comment form