엑셀
Area_Init
아스C#
2018. 11. 23. 13:30
반응형
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
반응형