|
▼Statis さん:
今晩は。横からすみません。
Statisさんの素晴らしいコードを見させていただき、
質問させて頂いても宜しいでしょうか?
コードの3行目「.Formula = "=IF(C1=""◇"",1,"""")"」はどのように理解すればよいのでしょうか?
C列に◇のマークがあれば256行目に「1」無ければ「空白」ということでしょうか?
更にOn Error GoTo EndLenはどういう意味なんでしょうか。
お時間許せば解説いただけませんでしょうか。
>Sub test()
>With Range("A1", Range("A65536").End(xlUp)).Offset(, 255)
> .Formula = "=IF(C1=""◇"",1,"""")"
> .Value = .Value
> On Error GoTo EndLen
> .SpecialCells(xlCellTypeConstants).EntireRow.ClearContents
> On Error GoTo 0
> .ClearContents
>End With
>Range("A1", Range("B65536").End(xlUp)).Sort _
> key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
>Exit Sub
>EndLen:
> MsgBox "該当のセルがありませんでした。", vbInformation
>End Sub
|
|