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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel内での検索結果をシートに出力したい
Excel(エクセル)
-
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
EXCELの検索結果を別シートに貼り付けたい
その他(Microsoft Office)
-
-
4
エクセルで検索結果を抽出し、別シートにコピーしたい。
Excel(エクセル)
-
5
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
6
エクセルの検索機能でコピーペースト出来ません
Excel(エクセル)
-
7
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
8
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
マクロにて指定の文字間の文字...
-
VBAでの重複データに色付け
-
【VBA】条件に一致しない行を削...
-
Access2003レポート:最終ペー...
-
VB.net
-
エクセルのデータがない行には...
-
列から特定の文字列検索→該当以...
-
EXCEL VBAでA列にある空白行よ...
-
【至急】Excel 同一人物の情報...
-
エクセルマクロでグループごと...
-
条件に合った行を削除するマク...
-
EXCEL2007マクロ/オートフィル...
-
数値に見えるものはすべて数値...
-
Excel97 指定した行だけマク...
-
Excel VBAでオートフィルタで抽...
-
VBでスプレッドをしようする際...
-
Excel VBA オートフィルタの結...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
数値に見えるものはすべて数値...
-
エクセルのデータがない行には...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
【VBA】条件に一致しない行を削...
-
エクセルのVBAで指定した行数の...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
マクロにて指定の文字間の文字...
-
Excel97 指定した行だけマク...
-
EXCEL VBAでA列にある空白行よ...
-
excel2021で実行できないマクロ...
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
Excel VBA オートフィルタの結...
-
エクセルで階層図を作る方法
-
VBAで特定の行と一つ上の行を削...
-
【至急】Excel 同一人物の情報...
-
Excelで、マウスで範囲を選択し...
おすすめ情報