abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2009.12.30 13:35

엑셀의 기본기능으로 해결하자면.. 미친짓이구요..

사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.

사용자 정의함수라함은.. 엑셀의 VBA를 이용해서 사용자가 함수를 정의해서 사용하는 것입니다.

첨부파일을 참고하시기 바랍니다.

abyul_20091230_removeKorean.xls

첨부파일에서는 한글제외()라는 함수를 이용했습니다.

한글제외()라는 함수는 아래의 코드로 정의되었구요.

Option Explicit

Function 한글제외(strData As String)

    Dim i As Integer
    Dim intLen As Integer
    Dim strX As String
    Dim strTemp As String

    intLen = Len(strData)

    For i = 1 To intLen
        strX = Mid$(strData, i, 1)
        Select Case strX
            Case "ㄱ" To "ㅎ", "가" To "힣", " "
            Case Else
                strTemp = strTemp & strX
        End Select
    Next i

    한글제외 = Application.WorksheetFunction.Trim(strTemp)

End Function