|
ちゃぴさん、Kein さん 早速のレスありがとうございます。
初心者ですのでさらに教えてください。
Sub Macro1()
End Sub
ではさんで実行しましたが、
いずれもうんともすんとも言いません
なにかやり方がまずいですか?
>On Error Resume Next
>With Range("C1", Range("C65536").End(xlUp)).Offset(, 26)
> .Formula = "=IF(ISERR(FIND("*",$C1)),1,"""")"
> .SpecialCells(3, 1).EntireRow.Hidden = True
> .ClearContents
>End With
>
>もしうまくいかなかったら、ループ処理すればいいでしょう。
>
>Dim C As Range
>
>On Error GoTo ErLine
>With Range("C1", Range("C65536").End(xlUp)).Offset(, 26)
> .Formula = "=IF(ISERR(FIND("*",$C1)),1,"""")"
> For Each C In .SpecialCells(3, 1)
> C.EntireRow.Hidden = True
> Next
> .ClearContents
>End With
>ErLine:
>
>
>
|
|