[VBA기초] 번호제거

인터넷에서 자료를 찾다보면 번호가 나오고 뒤에 내용이 나오는 경우가 있습니다.

이럴 경우 번호를 일일이 지우려고 하니까 좀 짜증나더군요.

그래서 간단하게 만들어본 VBA 코드입니다.

Sub 앞번호제거()
    Dim rngC As Range
    Dim rngAll As Range
   
    Set rngAll = Range([A2], Cells(Rows.Count, "A").End(3))
   
    For Each rngC In rngAll
        If IsNumeric(Left(rngC, 1)) Then
            rngC.Offset(, 1) = Trim(Mid(rngC, Len(Split(rngC, ".")(0)) + 2, Len(rngC)))
        Else
            rngC.Offset(, 1) = rngC
        End If
    Next rngC
   
End Sub