Area_Init

Sub Area_Init()

  stname = "#담당"

    

  olines = Last_Lines_담당("A")

  

  Dim arrGrd

  arrGrd = Sheets("#담당").Range("A2").Resize(olines, 2)

      

      

  AreaCount = olines

  ReDim AreaCode(1 To olines)

  ReDim AreaName(1 To olines)

  ReDim Areaupso(1 To AreaCount, 1 To 1000)

  ReDim AreaUpsoCnt(1 To AreaCount)

  

  For i = 1 To olines

    AreaCode(i) = arrGrd(i, 1)

    AreaName(i) = arrGrd(i, 2)

  Next

  

  olines = Last_Lines_업체정보("B")

  arrGrd = Sheets("#업체정보").Range("A21").Resize(olines, 28)

  

  For i = 1 To AreaCount

    For j = 1 To olines

      If AreaCode(i) = arrGrd(j, 4) Then

        AreaUpsoCnt(AreaCode(i)) = AreaUpsoCnt(AreaCode(i)) + 1

        Areaupso(AreaCode(i), AreaUpsoCnt(AreaCode(i))) = arrGrd(j, 2)

      End If

    Next

  Next

    

End Sub