Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48013 / 76807

←次へ　｜　前へ→


	【33739】Re:findメソッドについて

TOTO - 06/1/19(木) 18:51 -


	引用なし

	パスワード

▼じゅんさま：

　　　 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

1 hits

▼

【33639】findメソッドについて TOTO 06/1/17(火) 12:04