2011年10月4日火曜日 PT2 その他 実験

エクセルで特定の文字列を含まない行の削除

TvRockのログでエラー表示だけをざっと見たいなとおもってぐぐったら知恵袋によさげなマクロが投稿してあったので自分用に残しておきます。


Sub test()
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("a:a")
imax = Application.WorksheetFunction.CountA(rng)
j = 1
For i = 1 To imax
If InStr(Cells(i, 1), "エラー") > 0 Then
Cells(j, 5) = Cells(i, 1)
j = j + 1
End If
Next
End Sub