본문 바로가기

728x90

엑셀 & VBA

(18)
특정 파일과 비교, 혹은 시트 끼리 비교 삭제 매크로 파일의 특정 시트를 비교하여 참조하는 시트에 없는 타겟 시트의 열을 전부 삭제해줍니다. 시트 비교 삭제 매크로는 동일한 파일내에서 시트 둘을 비교하여 참조 시트에 없는 타겟 시트의 열을 전부 삭제해줍니다.​한 번 지우면 복구하기가 복잡 할 수 있으니, 꼭 백업 파일을 생성해둔 다음 작업하시고, 첨부로 예제 파일 넣었습니다. 첨부파일 'compareAndDelete'파일에서 바로 작업할 수 있게 하였고, 시트 비교로 삭제하는 매크로도 같이 넣었습니다.   Sub CompareAndDel() Dim i, j, k As Integer Dim wb1 As Workbook, wb2 As Workbook Dim ws1 As Worksheet, ws2 As Worksheet '비교할 원본 파일 ..
선택한 셀에 있는 값들을 현재 셀에 문자열로 연결 매크로를 실행하고, 레인지를 선택 해주면 현재 셀에 선택한 레인지 셀 값들을 ','로 전부 연결해서 한 셀에 넣어 줄 때 편리하게 사용할 수 있는 함수 입니다. 사용법은 아래와 같습니다.1. 알트(Alt) + F11키를 눌러 비주얼 베이직 창을 열고, 현재_통합문서에서 마우스 우측 버튼을 눌러 모듈을 추가해줍니다.2. 아래 매크로를 복사/붙여넣기 한 후 알트(Alt) + Q를 눌러 워크시트 화면으로 돌아옵니다.3. 알트(Alt) + F8키를 눌러 conSelectRng() 매크로를 실행시켜 레인지를 선택 해주면 커서가 있는 현재 셀에 선택한 셀의 내용을 모두 연결해서 입력해줍니다. Sub conSelectRng()Dim xRg As RangeDim xTxt As StringDim xCell As Rang..

728x90
반응형