rand(life)

Option Explicit Sub Jo_sort() Dim rD As Range Dim jList As Object Dim i As Long, iCol As Long 'Application.ScreenUpdating = False Set rD = Range("a1").CurrentRegion '데이터 범위 iCol = rD.Columns.Count Set jList = CreateObject("system.collections.sortedlist") With jList For i = 1 To rD.Rows.Count Step 2 Dim sT As String sT = rD.Cells(i, 1).Value & rD.Cells(i, 3).Value If Not .contains(sT) Then .Add s..

동일 값의 셀 병합하기 (출처: 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 =..

이전에 쓴 글에 오랜만에 질문 댓글이 새로 달려서 잠시 엑셀에 대해 글을 올립니다. 새 데이터를 가져왔을때 이 형태 그대로 유지하는 방법 없나요 데이터를 X같이 줘서 매번 이런식으로 변경해야되거든요.. 매번 저런 작업을 반복해야한다면 실무자로서 짜증이 날 상황이네요. 좀 생각해 봤는데, 받은 파일을 불러오자 마자 남이 작성한 셀 구조가 내가 원하는 모습으로 바뀌는 것은 가능하지 않을 것 같습니다. 대신에 이전에 올렸던 방법을 조금 간편하게 할 수 없을까 생각해 봤는데요. 이렇게 하면 되지 않을까 합니다. A열에는 셀병합을 해제한 후 같은 값을 채워넣을 수 있도록 위와 같은 수식(A2셀에 =IF(B2"",B2,A1 입력한 뒤 아래로 끌어 채우기)을 넣어두고, 다른 사람에게서 받은파일의 셀병합된 데이터부분을..

2. [편집] 2.1 다른 이름으로 저장하기- 암호 걸기 2.2 행열 크기 조정하기 2.3셀병합하기 / 병합 해제하기 2.4행열 숨기기 표시하기/ 시트 숨기기 표시하기 2.5시트복사하기 - 이동하기 3.[차트] 3.1간단한 차트 작성 3.2차트 종류 변경 3.3이중 축 차트 작성 3.4차트 구성요소 추가 - 데이터 값 표시하기 3.5차트 수정 및 도형 활용하기 3.6아래아한글(HWP)에 복사하기 4.[인쇄] 4.1미리보기 4.2용지 방향- 여백 조절 4.3머리글 - 바닥글 설정 4.4제목줄 반복 인쇄 5.[추가] 5.1함수중 주의할 것 (ex) countif에서 정렬하면 틀어지는 문제해결 6.[VBA] 이번에는 셀병합하기와 셀 병합 해제하기에 대해 알아보겠습니다. 병합할 셀들을 선택하고, 홈 – 맞춤의 ..

어제 새벽에 한 통의 이메일을 받았습니다. 안녕하세요.회사업무에 엑셀을 사용해야 하는 데이터가 있어서 여러모로 검색 하던 중에 블로그에 딱 필요한 함수에 대해서 설명글을 게재 한 것을 보고 이렇게 메일 드립니다. 다름이 아니라, 똑같이 수식을 적용하였는데 위 항목은 답을 가져오는데, 아래 항목은 답을 찾지 못하고 "0"으로 뜨네요. sumifs함수가 있는 것을 보고, 딱 이거라고 생각하였는데 아무리 봐도 뭐가 잘못된 것인지를 모르겠네요~ 시간이 되신다면 첨부된 문제 보시고 답변 부탁드리면 정말 감사하겠습니다 ^^ 이메일에 첨부된 파일입니다. 위 그림과 같이, D28셀에는 값이 0으로 나옵니다. 그 위에 답이 81이라고 나와 있는 D27셀의 수식을 보면, SUMIFS함수를 사용하였고, D4:D21의 열에 ..