[VBA] 엑셀 특정 문자를 개행 문자로 대체하기

icodebroker VBA 2024-06-18

■ 엑셀에서 특정 문자를 개행 문자로 대체하기

▶ 예제 코드


Public Sub 특정문자를개행문자로대체하기()

    Dim 범위           As Range
    Dim 토큰
    Dim 개행처리문자열 As String

    Application.ScreenUpdating = False

    For Each 범위 In Selection

        If Not IsEmpty(범위) Then

            토큰 = Split(범위, ",")

            개행처리문자열 = Join(토큰, Chr(10))

            범위 = 개행처리문자열

            Erase 토큰

        End If

    Next 범위

End Sub

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

Public Sub 특정문자를개행문자로대체하기()

Dim 범위 As Range

Dim 토큰

Dim 개행처리문자열 As String

Application.ScreenUpdating = False

For Each 범위 In Selection

If Not IsEmpty(범위) Then

토큰 = Split(범위, ",")

개행처리문자열 = Join(토큰, Chr(10))

범위 = 개행처리문자열

Erase 토큰

End If

Next 범위

End Sub

EXCEL VBA