VBA Archives - icodebroker

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

■ 엑셀에서 특정 문자를 개행 문자로 대체하기 ▶ 예제 코드


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

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

[VBA] 엑셀 특정 영역 셀 조작하기

■ 엑셀에서 특정 영역 셀을 조작하는 방법을 보여준다. 1. 엑셀 시트 데이터가 아래와 같이 있다. ▶ 데이터


───────────────────────
    A       B               C            D
─  ───  ───────  ─────  ───
1   성명    주민등록번호    이미지 수   파일명
2   강남구  7101012222222   3
3   강동구  8101013333333   2
4   관악구  9101014444444   1
───────────────────────

───────────────────────

A B C D

─ ─── ─────── ───── ───

1 성명 주민등록번호 이미지 수 파일명

2 강남구 7101012222222 3

3 강동구 8101013333333 2

4 관악구 9101014444444 1

───────────────────────

2. 작업 실행 후