Excel VBA質問箱 IV

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

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


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

52622 / 76735

←次へ　｜　前へ→


	【28948】Re:特定の条件で範囲を検索し他のセルに...

アイエネス - 05/9/19(月) 14:03 -


	引用なし

	パスワード

こんにちは。

>★あるデータから抽出した4桁の番号が"A5"からした方向にあります。
>（どのセルまであるかは、場合によって違います）
→4桁の番号しか入らないのであれば、元のコードをちょっといじるだけで
いけますよ。

>Sub てすと()
>
中略
>　　　　　
>Set rng = Range("A5:A" & z).Find(What:="1*")　　
→これを下記の様に修正します。

Set rng = Range("A5:A" & z).Find(What:="1???")

ちなみに、

>z = Range("A5").End(xlDown)
ではなくて、

z = Range("A5").End(xlDown).Row

ですね。

残念ながら、小生の環境では永久ループに陥らなかったので、ループが終わらない原因は
わかりかねますが、

>Do Until rng Is Nothing
と
>If add = rng.Address Then
にブレークポイントを設定して、変数の値がどうなっているのか見てみると原因がわかる
かもしれません。

0 hits

▼

【28745】特定の条件で範囲を検索し他のセルにコピー りょうた 05/9/13(火) 22:00