나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     이름(영어문자 삭제)[2].xlsm (28.4KB) 조회:  1332
제목:   [RE]이름 뒤 영문자 삭제 vba?
　 　 　
　 '--------------------------------
Sub remove_alph_from_right()
'--------------------------------

    Dim rngX As Range
    '조직도 범위
    Set rngX = Range("A1:M200")
    ' 이름 범위
    Set rngX = rngX.SpecialCells(xlCellTypeConstants)
    Dim rngY As Range, v As Variant
    Dim c As Long
    
    ' 각 Area를 돌려
    For i = 1 To rngX.Areas.Count
    
        Set rngY = rngX.Areas(i).Cells(1)
        v = rngY.Value
        
        '마지막 글자가 알파뱃이면
        If Right(v, 1) Like "[A-Za-z]" Then
           
           rngY.Value = x(v)
        
        End If
    
    Next i
    
End Sub

'---------------------------------
Function x(v)
'---------------------------------

 ' 글자 수만큼 루핑
 For m = 1 To Len(v)
    ' 알파벳을 만나면
    If Mid(v, m, 1) Like "[A-Za-z]" Then
        Exit For
    End If
 Next m
 
 '알파벳이 아닌 글자만 리턴
 x = Left(v, m - 1)
 
End Function
 		　
[불량 게시물 신고]  
참서리다음 YouTube동영상에서 자세히 설명되어 있습니다.
https://youtu.be/BdWPGXvk5x4		05-10 (00:01)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-05-10(00:01)
최종수정일 : 2019-05-10(00:01)
　


 ◎ 관련글
  제 목   작성자   날짜
이름 뒤 영문자 삭제 vba? 유아 2019-05-09
◎ [RE]이름 뒤 영문자 삭제 vba? 참서리 2019-05-10