|
▼Kein さん:
見事に解決できました。
構文は私の理解できるものではありませんが
助かりました。
ありがとうございました。
>あぁ、分かりました。"" を抜かしてました。これでどうでしょーか ?
>
>Sub R_hide()
> Dim MyR As Range, C As Range
>
> Application.ScreenUpdating = False
> On Error GoTo ELine
> With Range("C1", Range("C65536").End(xlUp)).Offset(, 26)
> .Formula = "=IF(ISERR(FIND(""*"",$C1)),1,"""")"
> Set MyR = .SpecialCells(3, 1)
> End With
> For Each C In MyR
> C.EntireRow.Hidden = True
> Next
>ELine:
> Range("AC:AC").ClearContents
> Set MyR = Nothing
> Application.ScreenUpdating = True
>End Sub
|
|