1

私はまだvbaコーディングに慣れていないので、2番目の列で特定の値を検索するためにポップアウトボックスを作成しようとしています。これはグーグルでしかできませんでした。

私がやろうとしているのは（これらはすべてマクロで行われることでした）、特定の値を見つけることでした。次に、プログラムが特定の値を見つけたときに、値があった行全体をコピーして貼り付けますExcel の新しいシート (同じヘッダーを使用)

これは私がこれまでに持っているコードです。

Sub macrotest()
x = 2
Do While Cells(x, 1) <> ""
If Cells(x, 2) = "TEST" Then
Worksheets("Sheet1").Rows(x).Copy
Worksheets("Sheet2").Activate
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(erow)
End If
Worksheets("Sheet1").Activate
x = x + 1
Loop

End Sub

ここに画像の説明を入力

上からわかるように、丸で囲まれた行を新しいシートにコピーしようとしています。

4

1 に答える 1

0

上記のコメントで述べたように、Autofilterそれを行うために使用できます。HEREに記載されているコードとは異なり、を使用しInputBoxて検索テキストを取得できます。

そのリンクstrSearch = "Clarke, Matthew"はハードコードされています。これで、以下のコードを使用して独自のものを取得できますstrSearch

Sub Sample()
    Dim strSearch

    strSearch = Application.InputBox("Please enter the search string")

    If strSearch <> False And Len(Trim(strSearch)) <> 0 Then
        Debug.Print strSearch

        '
        '~~> Rest of the code
        '
    End If
End Sub
于 2013-10-17T06:47:56.657 に答える