|
Yukiさん、早速の回答ありがとうございました。
試してみると非常にスピードが速いので感激しました。
しかし、判らないことがたくさんありまして・・・。
(VBAヘルプで探ってみたのですが判らなかったので・・・)(>_<)
1)何故 IF文など条件分岐をさせなくても
条件に沿った処理ができるのか?
>>With Sheets("Sheet1")で
シート内の処理をさせている?
2).AutoFilterMode = False は非表示と同じ処理なんでしょうか?
> With Sheets("Sheet1")
> Set rng = .Range("A3:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
> .AutoFilterMode = False
> rng.AutoFilter Field:=1, Criteria1:=strSTRING
> rng.SpecialCells(xlCellTypeVisible).Rows.Select
> .AutoFilterMode = False
> Selection.EntireRow.Hidden = True
> End With
>End Sub
|
|