rand(life)

네이버 지식인에서 큰형(ks_1862)님의 답변 중 참고하였습니다.D:\TEMP 라는 폴더 안에 있는 모든 XLSX 확장자를 가진 엑셀파일에서 "통계"라는 이름을 가진 시트를 복사해옵니다.Option ExplicitSub MergeWBs()Dim wbDst As WorkbookDim wbSrc As WorkbookDim wsSrc As WorksheetDim MyPath As StringDim strFilename As String Application.DisplayAlerts = FalseApplication.EnableEvents = FalseApplication.ScreenUpdating = False MyPath = "D:\temp"Set wbDst = ThisWorkbookstrFilename ..

동일 값의 셀 병합하기 (출처: http://www.iexceller.com/) [표1]처럼 되어있는 것을 [표2]처럼 바꾸는 것입니다. (반대방향으로 (표2에서 표1로) 바꾸는 것은 이전에 올린 글을 참고하세요.)매번 긁기가 귀찮아서 파일로 만들었습니다^^; Sub SameCellMerge() Dim rngTarget As Range Dim rngCell As Range Dim strAddress As String Dim intNum As Long Dim intCount As Long Dim intTemp2 As Long Dim intTemp As Long Dim i As Integer Application.DisplayAlerts = False On Error GoTo ET ' strAddress =..

이전의 포스트에서 썼던 것처럼, 여러사람에게서 지원서를 받아야하는 일이 생겼다. 원칙대로라면 이메일을 받고서 하나씩 답장을 해줘야하나, 그러기엔 일이 너무 많다. 게다가 Gmail은 수신확인 서비스를 지원하지 않기때문에 (정확히 말하면 이메일에 따라오는 이미지파일을 자동 다운로드못하게 차단하기 때문에) 지원서를 보낸 상대방은 내가 지원서를 잘 받았는지 확인할 수 없다. 그래서 접수가 안 되었다고 불안해하는 지원자의 전화를 몇 번 받았다. Outlook에서 "규칙"을 잘 이용하면 자동으로 회신할 수 있다는 이야기를 듣고 시도해 보았다. 처음에는 Microsoft Outlook 2007을 이용했다. MS Outlook 2007은 상당히 좋은 유틸리티이다. "규칙및 알림"을 잘 이용하면, 특정 단어가 들어있는..