Excel 2010を利用しています。
Sub Sample1()
Dim FoundCell As Range
Set FoundCell = Cells.Find(what:=" 090")
If FoundCell Is Nothing Then
MsgBox "見つかりません"
Else
Range("H1") = FoundCell
End If
End Sub
やりたいことは、sheet1のA列のみに表示されているシート上の、070、080、090の番号を全て検索して、sheet1のRange("H1") から順に下へ表示したいのです。
上記コード参考に変更しようとしましたが、
不明点
① Set FoundCell = Cells.Find(what:=" 090")に、070と080を組み合わせること。
②Range("H1") から下へ順番に表示する方法です。
for eachを書籍で調べましたが、わかりません。
お手数ですが、ご教示お願いします。
No.1ベストアンサー
- 回答日時:
Sub Sample1()
Dim r As Range
Dim i As Long
i = 1
For Each r In Intersect(Sheet1.UsedRange, Sheet1.Range("A:A"))
If r.Text Like "*070*" Or r.Text Like "*080*" Or r.Text Like "*090*" Then
Sheet1.Range("H" & CStr(i)).Formula = "=" & r.Address
i = i + 1
End If
Next r
End Sub
1. Find() はワイルドカード検索 "0?0" もできますが、ここでは使用していません。
2. Range("H1") = FoundCell の意図が分かりませんでした。
3. Sheet1 を使っています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
今日より前の書き方 マクロ
-
Eclipseの対応する括弧の強調表...
-
1本あたり○円と表示する時どの...
-
他のPCの日付・時刻の取得
-
エクセルのVBAで日付を検索し転...
-
このコードの処理を説明して頂...
-
VB 日付範囲チェック
-
VB.net 登録されている日付の連...
-
エクセルVBAで機械の稼働時間を...
-
テキストボックスに今日の日付...
-
VB6で時刻の範囲に入っているか...
-
和暦表示
-
VBA 日付、未来の日付はエラー...
-
テキストボックスにカレンダー...
-
エクセル VBA 時間の加算
-
excelのVBAについて、以下のコ...
-
TRANSFORM
-
最近、iPhoneがおかしいです 私...
-
iPhoneの通知が何故か来なくな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームのラベルに日...
-
DataGridViewでyyyy/MM/dd
-
VisualBasic6.0のFormat関数で...
-
Eclipseの対応する括弧の強調表...
-
エクセルのVBAで日付を検索し転...
-
特定の項目セルにスキャン(入...
-
テキストボックスにカレンダー...
-
VBA 日付、未来の日付はエラー...
-
今日より前の書き方 マクロ
-
コンボボックスに日付を表示する
-
システム日付とは?
-
【VBA】土日をスキップして日付...
-
3人のじゃんけんのプログラム
-
指定した日付が、その月の第何...
-
1本あたり○円と表示する時どの...
-
VB6.0 のformat関数について
-
VBAで当月の1日を表示するには...
-
テキストボックスに今日の日付...
-
VB 日付範囲チェック
-
【Excel VBA】条件に合った行の...
おすすめ情報