Excel VBA質問箱 IV

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

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


47944 / 76738 ←次へ | 前へ→

【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

0 hits

【33639】findメソッドについて TOTO 06/1/17(火) 12:04 質問
【33642】Re:findメソッドについて Jaka 06/1/17(火) 12:29 発言
【33643】Re:findメソッドについて TOTO 06/1/17(火) 13:05 質問
【33645】Re:findメソッドについて じゅん 06/1/17(火) 13:11 回答
【33650】Re:findメソッドについて じゅん 06/1/17(火) 15:30 回答
【33656】Re:findメソッドについて TOTO 06/1/17(火) 18:11 質問
【33657】Re:findメソッドについて じゅん 06/1/17(火) 18:20 回答
【33663】Re:findメソッドについて TOTO 06/1/17(火) 20:05 お礼
【33739】Re:findメソッドについて TOTO 06/1/19(木) 18:51 質問
【34106】Re:findメソッドについて じゅん 06/1/26(木) 13:56 回答
【34118】Re:findメソッドについて TOTO 06/1/26(木) 20:00 お礼
【33646】Re:findメソッドについて Jaka 06/1/17(火) 13:29 発言
【33664】Re:findメソッドについて TOTO 06/1/17(火) 20:06 お礼
【33659】Re:findメソッドについて Statis 06/1/17(火) 19:25 回答
【33666】Re:findメソッドについて TOTO 06/1/17(火) 20:13 発言
【33667】Re:findメソッドについて Statis 06/1/17(火) 20:19 回答
【33671】Re:findメソッドについて Hiro 06/1/17(火) 21:10 質問
【33672】Re:findメソッドについて Statis 06/1/17(火) 21:19 回答
【33720】Re:findメソッドについて Hiro 06/1/18(水) 21:49 お礼
【34093】Re:findメソッドについて TOTO 06/1/26(木) 11:15 質問
【34097】Re:findメソッドについて Statis 06/1/26(木) 11:38 回答
【34100】Re:findメソッドについて TOTO 06/1/26(木) 11:53 お礼

47944 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free