|
▼YAS さん:
こんばんは。
>
>こちらの掲示板で非表示行の削除方法を拝見させて頂いたのですが
>
>それを全シートで行おうと以下のコードを作成したのですが
>エラーが出てしまいます。
次回からは、提示されたコードのどの部分でどんなエラーが発生したかを
必ず記述してください
>
>なぜエラーが出るのかご教授頂けると幸いです。
>宜しくお願いします。
>
>↓
>
>Sub 非表示行削除()
>
>Dim AA
>Dim xx
>Dim c As Range
>Dim rr As Range
>
>AA = ActiveWorkbook.Worksheets.Count
>
>For xx = 1 To AA
set rr=nothing '削除セル範囲はシート毎に初期化する
> For Each c In Worksheets(xx).UsedRange.Rows
> If c.Hidden Then
> If rr Is Nothing Then
> Set rr = c
> Else
> Set rr = Union(rr, c)
> End If
> End If
> Next
>
> If Not rr Is Nothing Then
> rr.EntireRow.Delete
>
> End If
>
>Next
>
>End Sub
シートが保護されている なんて事がないのなら、
上記が原因としては、考えられます。
|
|