私は姓で検索したい顧客情報を含むスプレッドシートを持っています。私は別のシート（シート1）に姓を入力し、顧客データスプレッドシート（シート2）の姓の列をマクロに検索させたいと思います。一致するものが見つかったら、シート2の行全体をコピーして、シート1の特定の行に貼り付ける必要があります。私はいくつかのサイトを検索し、多数のバージョンのコードを試しましたが、動作させることはできません。1つのシートに列内のテキストを検索し、行データを別のシートにコピー
a linkは、別のシートやブックからデータを取得する方法を示しています。基本的にはSheet_name!Cell_addressまたはSheet_name!First_cell:Last_cellを使用します。
希望はこのことができます:)
私は、これは十分に簡単に聞こえるあなたが欲しい値を見つけるまでループを考えます。どのようにトリガーを発射したいですか？列1の選択されたセルをダブルクリックした後、トリガーが2番目のシートに入り、入力を促し、最初のマッチをコピーします。
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub 'or which ever column you enter for
Dim str_Act, str_Test As String
Dim i As Integer
'find value to search
str_Act = InputBox("Enter User Last Name")
If str_Act = "" Then Exit Sub
'loop to find search
Do While str_Act <> str_Test
str_Test = Sheets(1).Range("A1").Offset(i, 0) ' or whichever column has your value
i = i + 1
Loop
'Copy and paste
Sheets(1).Range("A1:ZZ1").Offset(i - 1, 0).Copy
Target.PasteSpecial
End Sub