Merge2 [기초방] VBA 100제 #25 [ 병합셀 다루기 ] 병합셀을 다루는 구문이다. 병합셀은 딱 두 개만 알아두면 된다. If rngX.MergeCells Then rngX.Next.Resize(rngX.MergeArea.Count, 1) = rngX if rngX.MergeCells : 병합된 셀이니 병합이면 이렇게 병합이 아니라면 이렇게.... MergeArea.Count : 병합된 영역의 크기 이 두개를 모르면 맨땅에 헤딩각!!! 더보기 Option Explicit Sub 기초방25() Dim rngX As Range: Set rngX = [c7] Dim rngM As Range Dim R& Dim cnt&: cnt = 1 Do Until IsEmpty(rngX) '= 병합된 셀들을 순환 If rngX.MergeCells Then rngX.Next.Res.. 2023. 2. 2. [VBA_merge]병합셀 숫자에 맞게 셀 병합 후 연번붙히기 이번 문제는 왼쪽에 있는 병합셀 크기와 함께 셀들을 병합시키면서 병합된 셀부분을 처음부터 끝까지 연번을 붙히는 문제입니다. 결과 : 셀크기에 따라 연번 영역이 병합되었고, 가운데 정렬과 모든 영역에 그리기 선이 채워졌으며 연번부분에는 차례로 연번이 출력된 것을 확인할 수 있다. 2021. 8. 4. 이전 1 다음
