엑셀 셀병합 쉽게하는법 > information

본문 바로가기
사이트 내 전체검색

information

엑셀 셀병합 쉽게하는법

페이지 정보

작성자 서방님 댓글 0건 조회 273회 작성일 15-01-27 14:07

본문

엑셀 셀병합 쉽게하는법..

1) 빈칸의 셀을 2개 선택하고 마우스 오른쪽클릭 - 셀서식 - 셀병합을 한다. (아님 단축키로 셀서식 진입)

2) 셀병합이 필요한 셀을 클릭한 후 F4를 살포시 누른다..ㅋ

3) 이후 셀병합을 하고싶은 칸마다 F4를 클릭 (단 연속해서 실행..)

끝입니다..ㅎㅎ

그냥 중수이상이신 분들은 패수요~^^;

P.S. 첨언하면 엑셀에 F4 기능은 바로 전에 실행했던 명령어를 다시 실행시켜주는 기능입니다.
       이는 줄그리기 등 여러곳에 응용이 가능합니다..^^;


액셀 상단 빠른실행버튼에 병합 넣어놓으면 알트 + 숫자로 단축키 기능됩니다.
셀병합을 첫번째로 놔두면 alt+1누르면 바로 병합됨.

요게 제일 좋죠~
저는 값복사, 서식복사, 틀고정, 셀병합, 가운데맞추기, 그룹 등등이 빠른실행도구모음에 있네요.
단축키가 있어야 엑셀쓰는 맛이 있죠 ㅎㅎ

저는 리본메뉴에 alt + 1 로 해뒀습니다.
alt + 2 = 중앙정렬
alt + 3 = 서식복사
alt + 4 = 테두리

alt+5 는 별도로 pickpick 캡쳐!!!!!

ctrl y 와 같죠.

알트 + 1 글씨 크게
알트 +2 글씨 작게
알트 + 3 가운데 정렬
알트 + 4 셀병합 가운데정렬
알트 + 5 외곽선
알트 + 7 모든선
알트 + 8 필터
알트 + 9 카메라
알트 + 0 점멸 (잉?)
마우스 휠클릭 얼음방패 (잉잉??)


=============================================================

엑셀로 자료를 정리하다 보면 컬럼의 값들 중에서 동일한 값을 가지는 값들을 선택해 셀병합을 하는 경우가 적지 않게 있다. 매번 같은 값들을 선택해서 병합 버튼을 누르면 되지만 대상되는 자료가 많을땐 은근히 귀찮은 작업이 아닐 수 없다.


그래서 일하다가 시간을 좀 투자해서 VBA(VisualBasic for Application) 프로시저를 만들어 보았다. 단시간에 만든것이라서 좀 군더더기가 있을 수도 있겠지만, 시간이 날 때 좀더 최적화를 해보려고 한다.

Sub MergeGroupCell()
    ' 셀합치기 할 때 경고 메시지 무시하기
    Application.DisplayAlerts = False

    Dim sel As Range
    Dim strPreVal As String
    Dim rngMerge As Range
    Dim i As Integer
    Dim iFrom As Integer, iTo As Integer

    Set sel = Selection
    sel.HorizontalAlignment = xlCenter
    sel.VerticalAlignment = xlCenter

    For i = 1 To sel.Count
        If i = 1 Then
            strPreVal = sel.Cells(i)
            iFrom = i
            iTo = i
        ElseIf i < sel.Count Then
            If sel.Cells(i) = "" Or sel.Cells(i) = strPreVal Then
                iTo = i
            Else
                If iFrom < iTo Then
                    Range(sel.Cells(iFrom), sel.Cells(iTo)).Merge
                End If
                strPreVal = sel.Cells(i)
                iFrom = i
                iTo = i
            End If
        Else
            Range(sel.Cells(iFrom), sel.Cells(i)).Merge
        End If
    Next i
End Sub

사용방법: 작업대상을 선택영역으로 지정한 후 스크립트를 실행시키면 된다. 단, 선택영역은 한 컬럼에 나열된 데이터만 가능하다.

댓글목록

등록된 댓글이 없습니다.

회원로그인

접속자집계

오늘
82
어제
302
최대
1,347
전체
155,143
Latest Crypto Fear & Greed Index

그누보드5
Copyright © 서방님.kr All rights reserved.