Sub オートフィルタで抽出したデータのすべての行番号を取得する()
    
    Dim intR(1 To 50) As Integer
    Dim FilterRow As Range
    Dim i As Integer
    
    Worksheets("Sheet3").Range("A1:A25").ClearContents
    Worksheets("Sheet1").Range("D1:D25").ClearContents
    
    
    strSto = "錦店"
    
    Sheets("Sheet1").Select
    Range("A1:C22").Select
                        
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$22").AutoFilter Field:=1, Criteria1:=strSto
    
    i = 1
    
    For Each FilterRow In Worksheets("Sheet1").Range("A2"). _
        CurrentRegion.Resize(, 1).SpecialCells(xlVisible)
    
        If FilterRow.Row > 2 Then
           intR(i) = FilterRow.Row
           Range("D" & intR(i)).Value = "●"
           Worksheets("Sheet3").Range("A" & i).Value = intR(i)
           i = i + 1
    
        End If
    Next FilterRow
    
    Selection.AutoFilter
    
    Worksheets("Sheet3").Select
    
End Sub