Excel2010の「ホーム」タブの「編集」グループより「検索と選択」の「検索」で住所録の「名前」を検索しています。
「検索する文字列」に「名前」を入力して「すべて検索」をクリックすると検索結果がでますが、検索結果の表示方法が「セル番地」だけを表示しているため一つ一つそのセルをクリックして内容を確認しています。
これを検索された複数のデータを住所録一覧表の項目名に合わせてまとめて別シートにコピーしたいのですが・・・。
Sheet1に次の項目名で住所録を作成しています。
A列:会社名
B列:名前
C列:住所
D列:電話番号
「名前」で検索して、検索されたデータのA列からD列までのデータを別シート(Sheet2)の同じ表にコピーしたいのです。
名字だけの検索ですので結果が複数ある場合は、すべての検索結果を数行にわたってコピーできればいいのですが・・・。
このメニューのコマンドを使わなくても、何か他の方法でVBAの例があれば教えていただきたいと思います。
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
結論から言うとわざわざマクロなど使わずとも。
推奨:
データタブの「オートフィルタ」を取り付け、「テキストフィルタ」から「指定の値を含む」(あるいは等しい、始まる等)で名前を記入して絞り込み、まとめて選んでコピー貼り付ければ完成です。
それとも。
とにかく操作をしたくないのでマクロをどうしても使いたい、というご相談なら。
作成例:
sub macro1()
dim s as string
s = inputbox("NAME?")
if s = "FALSE" then exit sub
application.screenupdating = false
worksheets("Sheet2").cells.clearcontents
with worksheets("Sheet1")
.autofiltermode = false
.range("A:D").autofilter field:=2, criteria1:=s & "*"
.range("A:D").copy destination:=worksheets("Sheet2").range("A1")
.autofiltermode = false
end with
application.screenupdating = true
end sub
一応念のため:
手を動かして操作したほうが、たとえば「どこにどんな具合に貼り付けたい」とかその時々の状況に応じて機動的に作業できますので、結果的には仕事は早いと思いますよ?
早速のお返事ありがとうございます。
「オートフィルタ」の方法を使ってみることにしました。
仰る通り、少ないデータの場合は手作業で「コピー」‐「貼り付け」の方が早いですね。
でも、VBAも勉強したいので回答を頂いたコードを使って試したいと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelのVLOOKUP関数 7 2022/08/23 06:46
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excel内での検索結果をシートに出力したい
Excel(エクセル)
-
EXCELの検索結果を別シートに貼り付けたい
その他(Microsoft Office)
-
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
-
4
エクセルで検索結果を抽出し、別シートにコピーしたい。
Excel(エクセル)
-
5
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
6
エクセルの検索機能でコピーペースト出来ません
Excel(エクセル)
-
7
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】条件に一致しない行を削...
-
マクロで最終行を取得してコピ...
-
エクセルで空白行を削除する ...
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
エクセルのデータがない行には...
-
関数入りの行挿入。。。上書き...
-
Excel97 指定した行だけマク...
-
エクセルVBAでデータの蓄積方法?
-
空白を複数行一気に挿入するには?
-
VBAでの重複データに色付け
-
Excelで、あるセルの値に応じて...
-
条件に合った行を削除するマク...
-
VB.net
-
各個体に対する平均値の自動計...
-
エクセルで階層図を作る方法
-
エクセルで行を挿入して小計合...
-
Excel VBAでオートフィルタで抽...
-
【至急】Excel 同一人物の情報...
-
EXCELマクロで自動改行
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
エクセルのデータがない行には...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
マクロにて指定の文字間の文字...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
【至急】Excel 同一人物の情報...
-
Excel マクロ 検索結果を別シ...
-
Excel VBA オートフィルタの結...
-
Excel97 指定した行だけマク...
-
列から特定の文字列検索→該当以...
-
VBAで入力の結果を他のセルに反...
-
excel2021で実行できないマクロ...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
おすすめ情報