엑셀 시트 정렬

Question

안녕하세요?

엑셀 시트가 250개가량 되는데,

ㄱ, ㄴ, ㄷ 순으로 정렬하고 싶은데, 어떻게 해야 하나요??

Answer 1

안녕하십니까? borisu2634 님

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel 시트를 가나다 순서로 정렬하는 방법에 대한 답변을 드리겠습니다.

말씀해 주신 내용은 Excel의 기본 기능으로는 제공되지 않는 부분입니다. 관련 내용에 대해서, 아래와 같은 VBA 매크로를 확인하기는 하였지만, 정확히 작동 여부는 해당 사이트에서 도움을 드리기 어렵습니다. VBA 매크로 기능들에 대해서는 MSDN의 개발자 포럼에서 도움을 드리고 있으니 그쪽에 문의하여 관련 자료나 도움을 받을 수 있는지 확인해 보시기 바랍니다. 

http://msdn.microsoft.com/ko-kr/office/

Sub Macro1()

  Dim i As Integer, j As Integer

  If MsgBox("시트를 오름차순으로 바꿉니까? 내림차순의 경우는 「아니오」를 선택해 주세요 ", _

                                                            vbYesNo + vbQuestion) = vbYes Then

    For i = 1 To ActiveWorkbook.Sheets.Count

      For j = 1 To ActiveWorkbook.Sheets.Count - i

        If Sheets(i).Name > Sheets(i + j).Name Then

          Sheets(i + j).Move before:=Sheets(i)

        End If

      Next

    Next

  ElseIf vbNo Then

    For i = 1 To ActiveWorkbook.Sheets.Count

      For j = 1 To ActiveWorkbook.Sheets.Count - i

        If Sheets(i).Name < Sheets(i + j).Name Then

          Sheets(i + j).Move before:=Sheets(i)

        End If

      Next

    Next

  End If

    End Sub

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.