![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
先日、こちらでコードを教えて頂き、早速使わせてもらっていますが、
作業をこなすうちにさらに追加したい項目が出来ました。
先日の質問はこちらです。
http://oshiete.goo.ne.jp/qa/8654316.html
エクセルのマクロコードで以下のような操作をしています。
7000名あまりのリスト(Sheet1のA1:A7000に名前、B1:B7000まで持ち点)から
任意の1~30名あまりの名前を一括検索して、その持ち点を調べるために
一括表示させています。
リストに名前が無い場合でも一括検索する時があります。
下記のコードは、一括検索で含まれない名前は検索から除外され
Sheet2のA列(名前)B列(持ち点)に表示されないようになって
結果が出ます。
これをSheet1(D1:D30)で一括検索で打ち込んだ名前を
リスト内で確認できなくても、そのまま検索した名前だけを
Sheet2に表示させるように追加するにはどのようにすれば宜しいでしょうか?
リストに無い名前はそのまま名前だけ表示されれば結構です。
使用しているコードは以下のとおりです。
=====================
Sub 連続検索()
'★(1)型宣言
Dim r As Range, c As Range
Dim i As Long, fAd As String
Dim sname As String, srng As String
Dim strow As Long, stcol As Long
'★(2)出力先のシート名と開始セル
sname = "Sheet2"
srng = "A1"
'★(3)開始行、列の取得
strow = Range(srng).Row
stcol = Range(srng).Column
'★(4)出力先の削除
With Sheets(sname)
.Range( _
.Cells(strow, stcol), _
.Cells(.Cells(Rows.Count, stcol).End(xlUp).Row, stcol + 1) _
).ClearContents
End With
For Each r In Range("D1:D30") '指定の各検索文字につき
Set c = Selection.Find(What:=r.Value, LookAt:=xlPart) '選択範囲を検索
If Not c Is Nothing Then 'あったら
fAd = c.Address 'セル番地を控える
Do '繰り返す
i = i + 1 'カウント
'★(5)一致した文字列・値を出力
Sheets(sname).Cells(strow - 1 + i, stcol).Value = c.Value
Sheets(sname).Cells(strow - 1 + i, stcol + 1).Value = c.Offset(0, 1).Value
'★(6)着色をコメントアウト
'c.Interior.ColorIndex = 8 'セル着色
Set c = Selection.FindNext(c) '連続検索
Loop Until c.Address = fAd '一巡するまで'繰り返し
End If
Next r '次の検索文字で繰り返す
Set c = Nothing
MsgBox i & "件を発見しました。", vbInformation, " ( ̄ー ̄)v"
End Sub
=========================
どうぞ宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
質問者様作成のモジュールと解釈して見させてもらいました。
多分、後半にElse以下5行を追加すればいいでしょう。
「Selection」の意味が分からないので何とも言えませんが、実際のデータだけ選択していれば。「D1:D30」に未入力があった場合も「If r.Value <> "" Then」で出力しないでしょう。
Messageについては触っていません。「発見」の一部です。
机上の解答です。確認してください。
Loop Until c.Address = fAd '一巡するまで'繰り返し
Else '■ここから
If r.Value <> "" Then
i = i + 1 'カウント
Sheets(sname).Cells(strow - 1 + i, stcol).Value = r.Value
End If '■ここまで
End If
Next r '次の検索文字で繰り返す
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
twitterの名前を変更後...
-
恋人の名前、検索します?
-
LINEで誕生日をプロフィールに...
-
何故Twitterにはまともな人が少...
-
最近Xを始めたのですが(見るだ...
-
インスタのいいね!について質...
-
インスタで水着姿や下着のみの...
-
ネット上で自分の本名を教える...
-
pixivでイラスト投稿するとイラ...
-
「ポストに変な手紙が入ってき...
-
facebookのプロフィール学歴追...
-
FaceBookで友人とのやり取りは...
-
発言小町・・投稿されたかどう...
-
旅行やイベントに行ってもSNSに...
-
フェイスブックで自分のページ...
-
Facebookの名前の横のカッコ表示
-
腐女子の方に質問です(できれ...
-
facebookで間違えて招待メール...
-
Twitter(Xーエックス)の登録な...
-
Quora使ってる人に聞きたいです...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
twitterの名前を変更後...
-
恋人の名前、検索します?
-
好きな人(もう会えない)の名前...
-
Outlook Expressでの宛名漢字表...
-
PDFファイル名を変更したいオー...
-
名前の検索をする心理状況
-
好きな人がいます。その人とは...
-
マクロコードの修正を教えてく...
-
URL
-
Gmailで氏名の表示を変更した場...
-
mixiの検索で
-
google検索について
-
検索エンジンで名前を検索
-
Outlook.jp メールについて
-
最近はインスタグラムで連絡す...
-
インスタのいいね!について質...
-
最近Xを始めたのですが(見るだ...
-
Twitter(Xーエックス)の登録な...
-
ノーツのメール受信時の相手の...
-
LINEで誕生日をプロフィールに...
おすすめ情報