로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2009.12.30 13:35:02 *.107.204.56
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 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
2011.01.29 10:44:39 *.177.116.40
2011.01.29 11:55:08 *.130.73.75
지지님..
안녕하세요? ^^
위 코드에서 아래 코드를 저 아래 코드로 바꾸시면 됩니다.
- 아래 -
Case "ㄱ" To "ㅎ", "가" To "힣", " "
- 저 아래 -
Case "ㄱ" To "ㅎ", "가" To "힣"
," "만 코드에서 제외시켜버린겁니다.
2011.01.30 11:15:34 *.177.116.40
2011.12.06 17:45:02 *.241.165.253
2014.12.07 22:57:30 *.41.32.125
새 창으로
선택한 기호
682
681
680
679
»
677
676
675
674
673
672
671
670
669
668
667
666
665
664
663
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 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