A列に特定の数字が入っている行を抽出してコピーするには?

Question 60.92 Excel VBA Borad (掲示板)より Previous Next
はじめまして、こんにちは。 EXCEL VBA初心者なので、とんでもない初歩的な質問をします。
データの中にあるA列から、特定の数字が入っている行全体のみ別シートに貼り付けたいのです。 IF文でいけると思うのですが、なかなかできません。
教えていただければと思います。
Answer   2003.5.6 もてもて
こんにちは、もてもてです。
If文を使うならこんな感じでしょうか。(FindNextというのもあります。ヘルプを見てみましょう。)
「仕上」シート 「仕上」シート
Sub test()
Dim stRow As Integer
Dim endRow As Long
Dim WriteRow As Long
Const Find_Word = "abc"                 '検索文字
Const Read_Sheet = "Sheet1"             '検索Sheet
Const Write_Sheet = "Sheet2"            '書込みSheet

    Sheets(Read_Sheet).Select
    endRow = Cells(65536, 1).End(xlUp).Row '最終行
    stRow = Cells(1, 1).End(xlDown).Row '開始行
    If endRow = stRow Then
        stRow = 1
    End If

    WriteRow = 1                        '書き出し
    For i = stRow To endRow
        If Cells(i, 1) Like "*" & Find_Word & "*" Then
            Rows(i).Copy
            Sheets(Write_Sheet).Rows(WriteRow).PasteSpecial
            Application.CutCopyMode = False
            WriteRow = WriteRow + 1
        End If
    Next i
End Sub
ありがとうございました
ありがとうございます。データ抽出ができました。

 

Excel VBA Macro