単語を検索して、その隣にあるセルをVBAの別のExcelブックにコピーします

Question

現在、ブック1のA列で「Quote ID：」を検索しようとしていますが、 Bをクリックし、そのセルをブックB67のセルB67に貼り付けます。

アイデア？私は必要なものと似たコーディングをいくつか見つけましたが、必要以上に複雑なコーディングがあり、隣接するセルではなく行全体をコピーしていました。

Answer 1

はここから始まり：あまりにも難しいことではありません

Sub SingleCell() 
    Dim r1 As Range, r2 As Range 

    Set r1 = Workbooks("Book1").Sheets("Sheet1").Range("A:A").Find(What:="Quote ID:").Offset(0, 1) 
    Set r2 = Workbooks("Book2").Sheets("Sheet1").Range("B67") 
    r1.Copy r2 
End Sub 

Answer 2

を。しかし、ワークブックとワークシート名を正しく記入する必要があります。

Sub searchMacro() 

Dim wb1 As Workbook, wb2 As Workbook, ws1 As Worksheet, ws2 As Worksheet 
Dim srch As String 
Dim col As Range, pstCell As Range, sRng As Range 

'Identify workbooks 
Set wb1 = Workbooks("workbook to search IDs Name") 
Set wb2 = Workbooks("workbook to paste cell name") 

'Identify worksheets 
Set ws1 = wb1.Sheets("Sheet to search IDs Name") 
Set ws2 = wb2.Sheets("Sheet to paste cell name") 

'Input which Quote to search for. This is a pop-up windows for the user to input the value into 
srch = InputBox("Input Quote ID:", "Search ID") 

'Search Column 
Set col = ws1.Columns("A") 

'Paste Cell 
Set pstCell = ws2.Range("B67") 

'Search the column for the ID 
Set sRng = col.Find(srch) 

If Not sRng Is Nothing Then 
    'Quote ID was found 
    sRng.Offset(0, 1).Copy pstCell 
Else 
    'Quote ID was not found 
    MsgBox "Quote ID " & srch & " was not found", vbCritical, "Not found" 
End If 

End Sub 

私はそれはあなただけの1つのセルにそれを変更することはできませんので、行全体ではなく、隣接するcell`をコピー `あなた