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
- by editor
- at 22:00
編集長のおすすめの一冊!2010
comments