|
▼UO3 さん:
お忙しいところをありがとうございます。
UO3さんのコードも試してみます。
勉強になりました。
>▼MAX さん:
>
>先日はあわてて不正確なものをアップして申し訳ありませんでした。
>すでに解決しておられるとは思いますが、抽出結果の削除の1つの例として。
>
>Sub 削除実行()
>Dim rr As Range
>
> If LineCount = 0 Then
> MsgBox "削除すべき抽出結果がありません"
> Exit Sub
> End If
>
> Set rr = Range("A1").CurrentRegion
> rr.Offset(1, 0).Resize(rr.Rows.Count - 1, rr.Columns.Count).EntireRow.Delete
>
>End Sub
>
>Function LineCount() As Long
>Dim rr As Range
>Dim x As Long
>Dim myArea As Range
>Dim ans As Long
>
> Set rr = ActiveSheet.AutoFilter.Range
> Set rr = Intersect(rr, rr.Offset(1))
>
> If rr Is Nothing Then Exit Function
>
> Set rr = rr.Columns(1)
> On Error GoTo bye
> Set rr = rr.SpecialCells(xlCellTypeVisible)
>
> For Each myArea In rr.Areas
> ans = ans + myArea.Rows.Count
> Next
>
> LineCount = ans
>bye:
>End Function
|
|