728x90
| 두 셀을 선택하여 서로 값을 맞바꿈 |
| 첨부파일 |
|
1
2
3
4
5
6
7
8
9
10
11
12
|
Sub Selection_Exchange()
With Selection
If .Areas.Count = 2 Then
DimV
V = .Areas(1).Value
.Areas(1).Value = .Areas(2).Value
.Areas(2).Value = V
End If
EndWith
End Sub
|
cs |
728x90
'■ Excel > ㅡExcel VBA Code' 카테고리의 다른 글
| 엑셀VBA 빠른 출력 (0) | 2022.06.30 |
|---|---|
| 엑셀VBA 빈칸이 아닌 부분만 UNION으로 회색으로 변경 (0) | 2022.06.20 |
| 엑셀 VBA 비어있지 않을 셀 회색처리 (0) | 2022.05.18 |
| 엑셀 VBA 셀 각각의 값 변경 (102 → 1-2) (0) | 2022.05.18 |
| 엑셀 VBA 특정셀을 클릭하면 작동하는 매크로 (0) | 2022.04.26 |