사회 초년생 탁서들을 위해
엑셀 팁을 하나 드리고자 씁니다.
엑셀.
만 직장인의 업무 필수 프로그램.
이 엑셀을 쓰다보면
이게 왜 안되지? ㅠㅠ
하면서 방법만 찾다가 시간만 날리는 경우가 몇 있는데
대표적인게 바로 [필터링 후 붙여넣기] 입니다.
전북에 사는 사람이 두명이나 있습니다.
[전북] 으로 필터링을 해봅시다.
김대리와 부장놈이 [전북]으로 필터링이 되었군요.
이때 다른 시트, 혹은 다른 프로그램에
연속된 데이터를 [비고]에 붙여넣고 싶을거에요.
안그러고싶다구요? 어쩌라구요.
이렇게 말이죠.
이 두개의 데이터를 복사해서
D6 셀에 붙여넣기 하면
[김대리], [부장놈]의 [비고] 칸에 [전북]이 입력 되겠죠?
잉???
[부장놈]에는 전북이 왜 안붙죠?
아이고... 필터를 풀어보니
이과장에게 붙어있네요....
두개의 [전북]이 연속된 데이터다보니
필터링에 걸려 숨겨져 있던 셀에 채워진 모양입니다.
필터링한 데이터를 복사해서 다른 셀로 옮길 때도 똑같은 문제가 발생하죠.
그렇다면
[부장놈]의 [비고] 셀에 넣을 방법은 없을까?
없으면 글을 쓰지 않았겠쥬?
해당 내용은 Excel 2013을 기준으로 작성합니다
다른 버전도 같을거에용
[파일] - [옵션] - [리본 사용자 지정] - [도구] 체크 - [확인]
[확인]을 클릭하고 밖으로 나오면
메뉴바에 [개발 도구] 탭이 생긴게 보입니다.
여기서
[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
==============================================================
그다음
[개발도구] - [매크로]
[필터링붙여넣기]라는 매크로가 생겼쥬?
이게 바로 나, 너, 우리가 함께 만든 매크로입니다.
실행해볼까요?
복사 할 범위를 선택하구요~
붙여넣을 범위까지 선택해주면
짜라란~
됐쥬? 신나쥬? 업무가 편해지겠쥬?
빨리 업무 끝내고 정시 퇴근들 하십시다~
코드 복사를 위해 복금 해제합니다
========================
해당 매크로는 해당 파일에서만 사용 가능해요
매크로를 뒀다 계속 쓰고 싶으시면
[Visual Basic] - [파일] - [내보내기]
해서 매크로를 저장해두고
필요한 파일에서 계속 불러다 쓰시면 됨미당
-끗-