てすと

    Private Sub CommandButton1_Click()

'    Cells(行番号, 列番号).Value
    Dim rng As Range
    
    sheetname = Worksheets("Sheet1").Range("A1").Value
    searchValue = Worksheets(sheetname).Cells(3, 6).Value
'    Worksheets("Sheet1").Range("A1").Value = searchValue
    
    Set searchRange = Range(Range("A2").Value)
    Set rng = searchRange.Find( _
        What:=searchValue, _
        LookAt:=xlWhole, _
        LookIn:=xlValues _
    )

    If rng Is Nothing Then
        MsgBox "見つかりませんでした"
    Else
'        MsgBox "行: " & rng.Row & " / 列: " & rng.Column
        searchValue_行 = rng.Row
        searchValue_列 = rng.Column
        Worksheets("Sheet1").Cells(3, 7).Value = Worksheets("Sheet1").Cells(searchValue_行 + 1, searchValue_列 + 3).Value
        Worksheets("Sheet1").Cells(3, 8).Value = Worksheets("Sheet1").Cells(searchValue_行 + 2, searchValue_列 + 4).Value
        
        Worksheets("Sheet1").Cells(searchValue_行 + 3, searchValue_列 + 1).Select
        Count = 0
        Do While Not IsEmpty(ActiveCell)
            ActiveCell.Offset(0, 1).Activate
            Count = Count + 1
        Loop
        
        MsgBox "行: " & ActiveCell.Row & " / 列: " & ActiveCell.Column
        MsgBox Count
        
    End If

End Sub