300x250
엑셀하다보면 필터된 셀에 복사 붙여넣으면 숨겨진 셀에 붙여넣기가 되어버린다.
해결해보자
1. 예제 파일을 하나 만든다.
1) 복사할셀과 붙여넣을 셀을 만들었다.
2) 붙여넣을셀은 키위만 제외하여 필터를 걸자. - 바나나만 남았다.
2. VBA 코드작성
-. 코드를 일부 수정함.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Sub FILTERED_PASTE()
Dim COPYRANGE As Range
Dim pasteRANGE As Range
Dim i As Integer
Set COPYRANGE = Application.InputBox("복사할범위 선택", Type:=8)
Set pasteRANGE = Application.InputBox("불여넣을범위 선택", Type:=8)
'Set pasteRANGE = Range(pasteRANGE, pasteRANGE.End(xlDown)).SpecialCells(xlCellTypeVisible)
i = 1
For Each e In pasteRANGE.SpecialCells(xlCellTypeVisible)
COPYRANGE(i).Copy Destination:=e
i = i + 1
Next
End Sub
|
cs |
3. 코드실행
1) 복사 할 셀 선택
2) 붙여넣을 셀 선택
3) 결과는 아래와 같이 필터된 보이는 셀에만 복사되었다.
300x250
'엑셀 > VBA' 카테고리의 다른 글
엑셀(vba)/다른 시트 데이터 복사 붙여넣기/시트 변수명으로 사용하기 (0) | 2023.08.13 |
---|---|
엑셀 vba/시트이름 가져오기/시트이름 변수에 넣어 활용하기 (0) | 2023.08.13 |
엑셀 vba - 하이퍼링크/한번에 하이퍼링크/셀 순서대로 하이퍼링크하기/순차/차례대로 링크걸기 (0) | 2021.12.18 |
VBA - 창 모두 저장 후 닫기 / 창 모두 닫기 / 창 한개 빼고 닫기 (0) | 2021.08.17 |
엑셀 VBA - 테두리 그리기 (1) | 2020.11.11 |