エクセルVBAでライフゲームその3

1. Aにmapのすべてのセルの状態(色の有無)を入れる
2. BにはAを使ってセルの探査結果を入れる

Function GetState() As Boolean()
    Dim map As Range
    Set map = Range("map")
    '2次元配列を作成、これにセルの状態を入れる
    Dim rc As Long, cc As Long
    rc = map.Rows.Count - 1
    cc = map.Columns.Count - 1
    Dim v() As Boolean
    ReDim v(rc, cc)
    
    Dim x As Long, y As Long
    For x = 0 To rc
        For y = 0 To cc
            'false 0, true -1,塗りつぶしなしなら0、色付きなら-1
            v(x, y) = map.Cells(x + 1, y + 1).Interior.ColorIndex <> xlColorIndexNone
        Next
    Next
    GetState = v
End Function

Function GetNextLifePointNoLoop() As Long()
    Dim st() As Boolean
    st = GetState '現在のmapの状態を取得
    Dim rc As Long, cc As Long
    rc = UBound(st, 1) 'RowsCount
    cc = UBound(st, 2) 'ColumnCount
    Dim x As Long, y As Long, LifeP As Long
    Dim xx As Long, yy As Long
    Dim v() As Long '配列
    ReDim v(UBound(st, 1), UBound(st, 2))
    
    For x = 0 To rc
        For y = 0 To cc
            LifeP = 0
            
            For i = -1 To 1
                For j = -1 To 1
                    
                    'Offset位置の調整、配列の外側に出たらなにもしない
                    xx = x + i
                    yy = y + j
                    If Not (i = 0 And j = 0) Then
                        If Not (xx < 0 Or xx > rc Or yy < 0 Or yy > cc) Then
                            If st(xx, yy) = True Then
                                LifeP = LifeP + 1 '色付きならカウントアップ
                            End If
                        End If
                    End If
                Next j
            Next i
            'カウントを記入
            v(x, y) = LifeP
            
        Next
    Next
    GetNextLifePointNoLoop = v
End Function