엑셀 vba/필터된 셀에 붙여넣기/보여지는셀에만 붙여넣기/필터숨겨진셀에 복사됨

엑셀하다보면 필터된 셀에 복사 붙여넣으면 숨겨진 셀에 붙여넣기가 되어버린다. 

해결해보자

 

1. 예제 파일을 하나 만든다. 

  1) 복사할셀과 붙여넣을 셀을 만들었다.

2) 붙여넣을셀은 키위만 제외하여 필터를 걸자. - 바나나만 남았다.

2. VBA 코드작성

  -. 코드를 일부 수정함.

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
 

 

 

3. 코드실행

  1) 복사 할 셀 선택

  2) 붙여넣을 셀 선택 

  3) 결과는 아래와 같이 필터된 보이는 셀에만 복사되었다.