|
こんにちは
Statisさま
Sub testtest()
With Range("Y132", Range("Y65536").End(xlUp)).Offset(, 255)
.Formula = "=IF(AA132=""◇"",1,"""")"
.Value = .Value
On Error GoTo EndLen
.SpecialCells(xlCellTypeConstants).EntireRow.ClearContents
On Error GoTo 0
.ClearContents
End With
Range("Y132", Range("Z65536").End(xlUp)).Sort _
key1:=Range("Y132"), Order1:=xlAscending, Header:=xlNo
Exit Sub
EndLen:
MsgBox "該当のセルがありませんでした。", vbInformation
End Sub
データがY132:AA155にあるため、上記のようにアレンジさせて頂きました。
A1:C30にデータを置いて、教えて頂いたコードを実行すると完璧に処理されましたが、
私がアレンジした上記のコードは
With Range("Y132", Range("Y65536").End(xlUp)).Offset(, 255) ←ここで
アプリション定義またはオブジェクト定義のエラーです
となります。
問題点を教えて頂けたらと思います。
よろしくお願い致します。
|
|