|
▼じゅん さま:
Y Z AA
130 7518 2 164
131 7524 1 167
132 7528 3 169
133 7536 1 171
134 8314 1 ◇
135 8318 1 ◇
136 8501 3
137 8505 1
138 8604 1
139 8702 3
140 8704 2
このようにA1からデータが入っていない時に
下記のコードはどのように手を加えればよろしいのでしょうか。
この場合は、Y130:AA140にデータが入っています。
対象の範囲を
Dim hanni As Range
hanni = Range("Y130", Range("Y65536").End(xlUp)).Resize(, 3)
として範囲内のデータについて◇の入った行のY,Z,AAを消し、
範囲内のみをY130:AA140(いくつかデータは消えている)Y列を基準に
ソートをかける、という風にしたいと思います。
何度も申し訳ありません。
よろしくお願い致します。
>次のようにしてみて下さい。
>Public Sub FindDeleteSort()
> Dim i As Long
>
> For i = 1 To 65536
> If Cells(i, "C").Value = "◇" Then
> 'Rows(i).Value = ""
> Cells(i, "A").Value = ""
> Cells(i, "B").Value = ""
> Cells(i, "C").Value = ""
> End If
> Next i
>
> Range("A1:B65536").Sort key1:=Range("A1"), order1:=xlAscending, header:=xlNo
>End Sub
|
|