No.2ベストアンサー
- 回答日時:
こんばんは。
ご質問のコードは、ヘルプのFind メソッドを調べれば、ほとんどそっくり載っていますので、そちらを見ていただければよいのです。ですから、誰が書いても、同じようなパターンになるかと思います。人によって違うのは、InputBox の使い方ぐらいかと思います。
ただし、Find メソッドの引数は、ひじょうに曲者です。必要に応じて、なるべく省略しないで、入れることがポイントです。MatchCase 大文字・小文字を区別するオプション。MatchByte 2バイト文字と1バイト文字を区別しないオプションなども、時には必要です。
'<なるべく標準モジュールでお使いください>
'--------------------------------------------------
Sub Sample1()
Dim myFind As Variant
Dim myfRow As Long, c As Range
Dim CopySh As Worksheet
Dim i As Long
'==========設定====================
'コピー先シート
Set CopySh = Worksheets("Sheet2")
'コピー先のセルの最初の行
i = 1
'==================================
myFind = Application.InputBox("検索文字を入力してください", Type:=2)
If VarType(myFind) = vbBoolean Or myFind = "" Then Exit Sub
With Worksheets("Sheet1").Columns(1)
Set c = .Find(myFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
myfRow = c.Row
Do
c.Copy CopySh.Cells(i, "A") 'コピー
Set c = .FindNext(c)
i = i + 1
Loop Until c Is Nothing Or myfRow = c.Row
End If
End With
Beep '終了の合図
End Sub
No.1
- 回答日時:
> A列を検索して、検索文字を含むセルをコピーして、
> そのコピーしたデータを、別のシートに貼り付ける、
> 次に該当したセルをさっきコピーしたデータの次の行に貼り付けて・・・。
この一連の操作をマクロとして記録して、その上で、
inputobxでの入力や次検索を行うループ処理などの記述を追加していて、マクロを完成させていっては。
あんまり大雑把な質問をしても回答がつきにくいと思われますので、まずはプロトタイプを試作して、その上で具体的な問題点を質問していった方が手っ取り早いかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
-
4
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
5
文字列を検索しその列をコピーする(VBA)
Excel(エクセル)
-
6
毎回変わる範囲を検索し、コピペするマクロについてご教示ください。
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
10
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
11
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルで隣接していない複数...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
メールソフト「サンダーバード...
-
Excel 行の連続データを列に参...
-
Excelでコピーした行の挿入を繰...
-
EXCELのオートフィルの設定を変...
-
エクセル 別シートへのコピー...
-
エクセルオートフィルで書式を...
-
EXELで複数のとびとびのセルを...
-
【excel】 書式なしで連続デー...
-
EXCELシートをPowerPointにきれ...
-
Excel)軽いデーターのはずなの...
-
エクセル コピーしたデータを1...
-
Excelに、ダブルクォーテーショ...
-
エクセルでの行数・列数を指定...
-
エクセル コメントごとコピー
-
「選択範囲を解除してアクティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル:マクロ「Application...
-
エクセルのアポストロフィを一...
-
エクセルの2ページ目の作り方
-
エクセルで勝手に「折り返して...
-
エクセルで隣接していない複数...
-
Excel 行の連続データを列に参...
-
EXCELシートをPowerPointにきれ...
-
エクセルで「コピーしたセルの...
-
EXCELのオートフィルの設定を変...
-
Excel)軽いデーターのはずなの...
-
メールソフト「サンダーバード...
-
Excelに、ダブルクォーテーショ...
-
エクセルオートフィルで書式を...
-
エクセルで値だけコピーして背...
-
Excelでコピーした行の挿入を繰...
-
エクセルで、選択範囲の数値全...
-
エクセルでの行数・列数を指定...
-
「選択範囲を解除してアクティ...
-
エクセル 別シートへのコピー...
-
EXELで複数のとびとびのセルを...
おすすめ情報