엑셀 영문과 한글을 분리하는 매크로

Sub 이름분리()

Dim i As Integer

Dim word As Integer

Dim rng As Range

Dim 행수 As Integer

행수 = Range("A1").CurrentRegion.Rows.Count

For Each rng In Range("a1").CurrentRegion.Offset(1, 0).Resize(행수 - 1, 1)

For i = 1 To Len(rng)

word = Asc(Mid(rng, i, 1))

If ((word >= 1 And word <= 500)) Then

Else

rng.Offset(0, 1) = Left(rng, i - 1)

rng.Offset(0, 2) = Right(rng, Len(rng) - i + 1)

Exit For

End If

Next

Next

Columns("b:c").AutoFit

End Sub