|
▼Yuki さん:
ありがとうございます。
SpecialCells(xlCellTypeVisible).Rows.Count
の使い方が良く判っていませんでした。
私には難しいコードですが勉強します。
>▼MAX さん:
>>以下のようにN列で1のデータをオートフィルターで削除していますが、1がまったく無い場合は全て削除されてしまいます。回避方法をご教授願います。
>
>こんにちは。こんな感じで
>
>With Worksheets("WKデータ")
> .AutoFilterMode = False
> With .Range("A1").CurrentRegion
> With .Offset(3).Resize(.Rows.Count - 3)
> .AutoFilter Field:=14, Criteria1:="1"
> If .SpecialCells(xlCellTypeVisible).Rows.Count > 1 _
> Or .SpecialCells(xlCellTypeVisible).Areas.Count > 1 Then
> .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
> End If
> End With
> End With
> .AutoFilterMode = False
>End With
|
|