반응형
Notice
Recent Posts
Recent Comments
Link
«   2023/09   »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
Archives
Today
Total
관리 메뉴

둘에서 하나로....

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

잡동사니

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

서기㏇ 2018. 3. 13. 19:18
반응형


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





반응형
Comments