낭만소방관

중복값을 다 나열하여 RemoveDuplicates로 중복값을 지우는 코드를 썼다가 카페의 Chronicle 님이 Collection 개체로 중복값을 찾는 방식을 알려줘서 그에 맞춰서 나도 다시 짜봤다. 중복값이 생기면 Collection에 중복값을 쌓아가고 셀에 그 배열들을 뿌리는 방식. 이를테면 공식 같은 거다. Option ExplicitSub dblName() Dim rngName As Range Dim rngCell As Range Dim cltName As New Collection Dim varName As Variant Dim i As Integer '기존항목 제거 후 제목 입력 With Range("C1") .CurrentRegion.ClearContents .Value = "중복이름" ..

이런 건 쉬워서 안 올리려다가 EntireRow.Delete 를 활용해본 거라 적어서 올린다. 중복된 바코드는 없애고 유일한 바코드만 추출하여 바코드에 해당하는 수량의 합을 나타내는 매크로다. Option Explicit Sub sumCode() Dim rngCopy As Range Dim rngStart As Range Dim rngQty As Range Dim i As Integer Dim intR As Integer '원본 첫셀, 작업할 표의 첫셀, 수량 정의 Set rngCopy = Range("A1") Set rngStart = rngCopy.End(xlDown).Offset(5, 0) Set rngQty = rngStart.Offset(, 4) '기존 자료 삭제 rngStart.CurrentR..