필터링 되어 있는 열에 복사 붙여넣기 할 수 있는 방법 있을까요?

@월마리아 님 개발 도구에서 VISUAL BASIC 실행 해주시고

삽입-모듈 누르셔서 아래 내용 붙여넣어주세요

Sub 필터 붙여넣기()

Dim CopyRange As Range
Dim FilterRange As Range
Dim RoofRange As Range
Dim dotax As Integer

On Error Resume Next

Set CopyRange = Application.InputBox("복사할 범위를 선택하세요", Type:=8)
If CopyRange Is Nothing Then Exit Sub

Set FilterRange = Application.InputBox("붙여넣을 필터의 셀 범위를 선택하세요", Type:=8)
If FilterRange Is Nothing Then Exit Sub

dotax = 1

For Each RoofRange In FilterRange.SpecialCells(xlCellTypeVisible)
   
    CopyRange.Item(dotax).Copy
    RoofRange.PasteSpecial
    dotax = dotax + 1
Next

Application.CutCopyMode = False

End Sub

그리고 창 꺼주시고 다시 개발도구 - 매크로 누르시면 '필터 붙여넣기' 가 생겨있을건데

실행해주셔서 복사할 범위랑 붙여넣을 범위 선택해주시면 되겠습니다.