specialCells1 [기초방] VBA 100제 #57 [ 영역 합계구하기 ] 빈셀의 크기는 유지한채 내용 있는 셀들만 합계를 구하는 구문이다. 이 문제는 Areas 를 알고 있는것과 그렇지 않은 것 사이의 차이가 많이 난다. 더보기 Option Explicit Sub 기초방57() Dim rngAll As Range: Set rngAll = Range("d5:d" & Cells(Rows.Count, "d").End(3).Row) Dim rngA As Range, rngX As Range, rngF As Range Dim i, j, Vtemp() ReDim Vtemp(rngAll.Cells.Count - 1) '= 임시배열 크기는 전체영역 크기로 잡음 For Each rngX In rngAll.SpecialCells(4).Areas '= 빈영역을 임시 배열에 담아라 Vtemp(i).. 2023. 7. 7. 이전 1 다음
