반응형
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
반응형
