본문 바로가기

엑셀

 (13)
엑셀 에서 현재 열을 맨 마지막 열에 복사 하는 매크로 엑셀 작업중, 반복적으로 열을 복사 해서 사용할 때 유용한 함수로, 현재 열을 시트의 비어 있는 마지막 열로 복사해줍니다. Sub copyToLastRow() Application.ScreenUpdating = False Dim copySheet As Worksheet '시트가 다를 경우 예비 'Dim pasteSheet As Worksheet '작업하는 시트 이름 Set copySheet = Worksheets("Sheet1") '작업하는 시트 이름 'Set pasteSheet = Worksheets("Sheet2") Range("A" & Selection.Row & ":AG" & Selection.Row).Select Selection.Copy 'copySheet.Range("A" & Selectio..
엑셀 전체 글에서 특정 단어, 글자, 숫자를 한 번에 바꾸고, 지우는 방법 엑셀 작업중 시트에 있는 셀 값들 중 특정 값을 한 번에 바꾸거나 지우고 싶을 때가 있습니다. 예를 들어 KRW를 USD로 바꾸고 싶다면, 아래 바꾸기에서 KRW/USD로 바꾸면 됩니다. 바꾸는 것이 아니고, 특정 문자열을 지우고 싶다면, 컨트롤 + H를 눌러 바꾸기를 실행해서 KRW를 아무것도 없는 것으로 모두 바꾸기 실행하면 됩니다.
주민번호에서 생년월일을 추출 할 때 유용한 엑셀 함수 두 가지 엑셀로 문서작성( 재직증명서, 퇴직증명서, 경력증명서 등의 서류를 작성하는 등의 작업을 하다 보면 주민번호에 있는 앞자리 6자리를 불러와 생년월일로 바꿔줄 필요가 있습니다. 그럴 때 필요한 함수식입니다. 1. 'A1'에 주민번호가 있고 'B1'에 생년월일을 표시하고 싶다면 함수는 아래와 같습니다. 아래 함수를 천천히 살펴보면, = DATE(IF(OR(MID(A1,1,2)="3"),"20","19") & MID(A1,1,2), MID(A1,3,2), MID(A1,5,2)) 2. 주민번호를 생년월일로 바꾸기 위해서는 앞에 6자리 숫자가 필요합니다. 예제에서 보면 "201217" 중에서 MID 함수로 먼저 두자리를 20과 비교하여 20보다 크거나 작고, 뒷자리의 첫째자리 수가 3보다 크거나 같으면 2000년대..
특정 파일과 비교, 혹은 시트 끼리 비교 삭제 매크로 파일의 특정 시트를 비교하여 참조하는 시트에 없는 타겟 시트의 열을 전부 삭제해줍니다. 시트 비교 삭제 매크로는 동일한 파일내에서 시트 둘을 비교하여 참조 시트에 없는 타겟 시트의 열을 전부 삭제해줍니다. ​한 번 지우면 복구하기가 복잡 할 수 있으니, 꼭 백업 파일을 생성해둔 다음 작업하시고, 첨부로 예제 파일 넣었습니다. 첨부파일 'compareAndDelete'파일에서 바로 작업할 수 있게 하였고, 시트 비교로 삭제하는 매크로도 같이 넣었습니다. Sub CompareAndDel() Dim i, j, k As Integer Dim wb1 As Workbook, wb2 As Workbook Dim ws1 As Worksheet, ws2 As Worksheet '비교할 원본 파일 Set wb1 = Wor..
선택한 셀에 있는 값들을 현재 셀에 문자열로 연결 매크로를 실행하고, 레인지를 선택 해주면 현재 셀에 선택한 레인지 셀 값들을 ','로 전부 연결해서 한 셀에 넣어 줄 때 편리하게 사용할 수 있는 함수 입니다. 사용법은 아래와 같습니다. 1. 알트(Alt) + F11키를 눌러 비주얼 베이직 창을 열고, 현재_통합문서에서 마우스 우측 버튼을 눌러 모듈을 추가해줍니다. 2. 아래 매크로를 복사/붙여넣기 한 후 알트(Alt) + Q를 눌러 워크시트 화면으로 돌아옵니다. 3. 알트(Alt) + F8키를 눌러 conSelectRng() 매크로를 실행시켜 레인지를 선택 해주면 커서가 있는 현재 셀에 선택한 셀의 내용을 모두 연결해서 입력해줍니다. Sub conSelectRng() Dim xRg As Range Dim xTxt As String Dim xCell A..
반응형

티스토리툴바