Sub mondai3_Collection()
    Dim dic As New Scripting.Dictionary
    Dim cFm As Long
    For cFm = 2 To 21
        If Range("C" & cFm).Value = "渋谷区" Then
            If Not dic.Exists("渋谷区") Then
                'DictionaryにCollectionオブジェクトを参照させる
                dic.Add "渋谷区", New Collection
            End If
            'Collectionに行番号を入れる
            dic.Item("渋谷区").Add cFm
        End If
    Next

    Dim Var As Variant
    'Collectionから行番号を取り出す
    Debug.Print TypeName(dic.Item("渋谷区"))
    For Each Var In dic.Item("渋谷区")
        Debug.Print Var
        Range("H" & Var).Value = "○"
    Next
End Sub

Sub mondai3_Col1() '数値を格納
    Dim cFm As Long
    Dim col As New Collection
    For cFm = 2 To 21
        If Range("C" & cFm).Value = "渋谷区" Then
            col.Add cFm
        End If
    Next
    Dim v As Variant
    For Each v In col
        Debug.Print v
    Next
End Sub
Sub mondai3_Col2() 'セルへの参照を格納
    Dim cFm As Long
    Dim col As New Collection
    For cFm = 2 To 21
        If Range("C" & cFm).Value = "渋谷区" Then
            col.Add Range("F" & cFm)
        End If
    Next
    Dim v As Variant
    For Each v In col
        Debug.Print v.Address & " : " & v.Value
    Next
End Sub

Sub mondai3_Collection()
    Dim dic As New Scripting.Dictionary
    Dim cFm As Long
    For cFm = 2 To 21
        If Range("C" & cFm).Value = "渋谷区" Then
            If Not dic.Exists("渋谷区") Then
                'DictionaryにCollectionオブジェクトを参照させる
                dic.Add "渋谷区", New Collection
            End If
            'Collectionに行番号を入れる
            dic.Item("渋谷区").Add cFm
        End If
    Next

    Dim Var As Variant
    'Collectionから行番号を取り出す
    Debug.Print TypeName(dic.Item("渋谷区"))
    For Each Var In dic.Item("渋谷区")
        Debug.Print Var
        Range("H" & Var).Value = "○"
    Next
End Sub

Sub mondai4_Col1() '数値を格納
    Dim cFm As Long
    Dim dic As New Scripting.Dictionary
    Dim st As String
    For cFm = 2 To Range("A" & Rows.Count).End(xlUp).Row
        st = Range("C" & cFm).Value
        If Not dic.Exists(st) Then
            dic.Add st, New Collection
        End If
        dic.Item(st).Add cFm
    Next
    
    Dim var As Variant
    Dim cTo As Long
    Dim sp() As String
    cTo = 2
    For cFm = 0 To dic.Count - 1
        st = dic.Keys(cFm)
        Range("J" & cTo).Value = st & "のマンションは" & dic.Item(st).Count & "件ヒットしました！"
        cTo = cTo + 1
        For Each var In dic.Item(st)
            Range("K" & cTo).Value = Range("F" & var).Value
            Range("L" & cTo).Value = Range("D" & var).Value
            Range("M" & cTo).Value = Range("E" & var).Value
            sp = Split(Range("G" & var).Value, "/")
            Range("N" & cTo).Value = sp(0)
            Range("O" & cTo).Value = sp(1)
            cTo = cTo + 1
        Next
        cTo = cTo + 1
    Next
End Sub

'連想配列に動的配列を格納する別解
Sub mondai5_array()

    '初期化
    Dim cMx As Long
    cMx = Range("O" & Rows.Count).End(xlUp).Row
    If cMx > 1 Then
        Range("J2:O" & cMx).ClearContents
    End If
    
    Dim cFm As Long
    Dim dic As New Scripting.Dictionary
    
    Dim st As String
    Dim ar As Variant
    For cFm = 2 To Range("A" & Rows.Count).End(xlUp).Row
        st = Range("C" & cFm).Value
        If Not dic.Exists(st) Then
            dic.Add st, Array(cFm)
        Else
            ar = dic.Item(st)
            ReDim Preserve ar(UBound(ar) + 1)
            ar(UBound(ar)) = cFm
            dic.Item(st) = ar
        End If
    Next
     
    Dim cTo As Long, GYO As Long
    Dim sp() As String
    GYO = 2
    For cFm = LBound(dic.Keys) To UBound(dic.Keys)
        st = dic.Keys(cFm)
        Range("J" & GYO).Value = st & "のマンションは" & UBound(dic.Item(st)) + 1 & "件ヒットしました！"
        GYO = GYO + 1
        
        For cTo = LBound(dic.Item(st)) To UBound(dic.Item(st))
            Range("K" & cTo + GYO).Value = Range("F" & dic.Item(st)(cTo)).Value
            Range("L" & cTo + GYO).Value = Range("D" & dic.Item(st)(cTo)).Value
            Range("M" & cTo + GYO).Value = Range("E" & dic.Item(st)(cTo)).Value
            sp = Split(Range("G" & dic.Item(st)(cTo)).Value, "/")
            Range("N" & cTo + GYO).Value = sp(0)
            Range("O" & cTo + GYO).Value = sp(1)
        Next
        GYO = GYO + UBound(dic.Item(st)) + 2
    Next
End Sub