엑셀 VBA #08 / 셀 범위 선택하기_3 [VBA]
목적 : Union을 활용하여 비연속적으로 떨어진 셀 범위 선택하기(합집합)
1. Union
구조 : Application.Union(범위1,범위2,,,,,,범위30)
Application생략 가능
의미 : 비연속적으로 떨어진 셀 범위(최대 30개)를 합체
2. 사용
Application.Union(Columns("B"),Columns("D")).Select 또는
Union(Columns("B"),Columns("D")).Select
3. 심화
특정값(ex, 4 또는 6)을 제외한 셀을 선택하는 경우, Union활용
Dim c as Range
Dim r as Range
For Each c in Range("A1:A10")
If c = 4 or c = 6 then
Else 'c의 값이 4 또는 6이 아니라면
If r Is Nothing Then ' r이라는 개체변수(r방)에 아무것도 없으면
Set r =c 'r방에 c값을 넣어주고
Else 'r방에 기존 값이 있으면
Set r =Union(r,c) ' r방에 기존 값과 c값을 합체한다
End if
End If
Next
If r is nothing = 0 then r.Select '0=false, r방이 nothing이 아니라면(false), r을 선택해라
https://www.youtube.com/watch?v=w3fWBhtPamA&t=15s
2023.12.13 - 엑셀 VBA #13 / 셀 범위 선택하기_8 [VBA] - Intersect
2023.12.14 - 엑셀 VBA #40 / 행 삭제_개선1 [VBA] - Union
2023.12.15 - 엑셀 VBA #50 / 중복데이터 처리_3 [VBA]
2023.12.16 - 엑셀 VBA #51 / 중복데이터 처리_4 [VBA] - 사용자정의함수
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #13 / 셀 범위 선택하기_8 [VBA] - Intersect (0) | 2023.12.13 |
|---|---|
| 엑셀 VBA #12 / 셀 범위 선택하기_7 [VBA] - SpecialCell & Areas활용(행 삭제) (0) | 2023.12.12 |
| 엑셀 VBA #11 / 셀 범위 선택하기_6 [VBA] - Areas (0) | 2023.12.12 |
| 엑셀 VBA #09 / 셀 범위 선택하기_4 [VBA] - SpecialCells (0) | 2023.12.12 |
| 엑셀 VBA #07 / 셀 범위 선택하기_2 [VBA] -Resize & Offset (0) | 2023.12.12 |
| 엑셀 VBA #06 / 셀 범위 선택하기_1 [VBA] (1) | 2023.12.12 |
| 엑셀 VBA #05 / 셀 하나 선택하기_4 [VBA]-Offset (0) | 2023.12.12 |
| 엑셀 VBA #04 / 셀 하나 선택하기_3[VBA] - Entire속성 이용 (0) | 2023.12.12 |
