엑셀 VBA 셀 각각의 값 변경 (102 → 1-2)

잔머리JR 님께 도움을 받음

Sub CH_Class_NM_zerodasi()
 
Dim rngK As Range
    
    For Each rngK In Selection
        rngK = "'" & Left(rngK, 1) & "-" & Right(rngK, 1)
    Next
 
 
'참고 실패한 코드
'Dim Selec_Val
'Dim Selec_Count As Integer
'Dim i As Integer
'
'    Selec_Count = Selection.Count
'
'    For i = 1 To Selec_Count
'        Selec_Val = Selection.Areas(i).Value
'        Selection.Areas(i).Value = "'" & (Left(Selec_Val, 1) & "-" & Right(Selec_Val, 1))
'    Next
 
End Sub