6월 2 2016

엑셀(EXCEL) – 불 특정한 스페이스로 분리된 셀을 스페이스 앞 뒤로 문자열 분리

업무를 진행하다 보면 참 애매한 경우가 많습니다. 갑님이 보내오신 메일의
양식을 바꾸어 달라고 할 수가 없어 을님들이 하지 않아도 될 일들을 해야할
경우인데요. 아래의 질문처럼 그냥 주문서를 엑셀로 받아서 처리하면 될 것
같은데 그냥 메일 내용속에 Text를 그냥 붙여서 오는 경우입니다.

http://www.clien.net/cs2/bbs/board.php?bo_table=kin&wr_id=3740799
——————————————————————————————
아웃룩메일로 들어온 데이터를 엑셀로 옮기고 싶은데요.

품번 수량
X4567890 20개
X4567891 20개
X4567892 20개
X4567893 30개
X4567894 20개

이런식으로 데이터가 들어오는데요.
——————————————————————————————

참 이런 것을 몇 백개씩 하루에 지속적으로 하고 계시는 것 같습니다.
시작합니다.

개발도구 > VBA Editor 열고 Module하나 삽입하시고 아래 코드를
붙여 넣습니다. 그리고 ActiveX 명령 버튼 하나 삽입하시고 매크로를
연결 시킵니다. 물론 제 블로그에 원본 자료 올려 놓으니 오셔서
내려 받고 그냥 사용하시면 됩니다.

Option Explicit

Sub Split_Text_To_Cell()
 
 ' 분리할 앞뒤 문자열과 영역 정의
 Dim fStr As String, rStr As String
 Dim rng As Range, rngRef As Range
 
 ' 분리할 영역 정의, 자동과 수동
 Set rngRef = Range("A1", Range("A65536").End(xlUp))
 
 ' 직접 영역을 선택할 경우
 'Set rngRef = Application.InputBox("분리 영역 선택", Type:=8)
 
 ' 선택된 영역을 순환하면서 분리함
 For Each rng In rngRef
 ' 일반적으로 분리하는 방법
 'fStr = Left(rng.Value2, InStr(rng.Value2, " ") - 1)
 'bStr = Right(rng.Value2, Len(rng.Value2) - InStrRev(rng.Value2, " "))
 
 ' 조금 있어 보이게 분리하는 방법 ^^;;;
 fStr = Mid(rng.Value2, 1, InStr(rng.Value2, " ") - 1)
 rStr = Mid(rng.Value2, InStrRev(rng.Value2, " ") + 1)
 
 ' 분리된 문자열을 셀에 입력함
 rng.Offset(0, 1).Value2 = fStr
 rng.Offset(0, 2).Value2 = rStr
 
 Next rng

End Sub

ps&gt; 더 편한 방법?


Sub Split_Text_by_도장님()
 
 ' 아래 방법 중 아무거나로 선택해서 진행
 ' 선택하는 방법도 여러가지가 있으니...
 ' 아래로 열들이 연속된 경우 사용
 'Range("A1", Range("A1").End(xldown)).Select
 ' 연속되지 않고 중간 열들이 비어 있는 경우
 'Range("A1", Range("A65536").End(xlUp)).Select

 Columns("A:A").Select
 
 Selection.TextToColumns

End Sub

Option Explicit

Sub Split_Text_To_Cell()

' 분리할 앞뒤 문자열과 영역 정의

Dim fStr As String, rStr As String

Dim rng As Range, rngRef As Range

' 분리할 영역 정의, 자동과 수동

Set rngRef = Range("A1", Range("A65536").End(xlUp))

' 직접 영역을 선택할 경우

'Set rngRef = Application.InputBox("분리 영역 선택", Type:=8)

' 선택된 영역을 순환하면서 분리함

For Each rng In rngRef

' 일반적으로 분리하는 방법

'fStr = Left(rng.Value2, InStr(rng.Value2, " ") - 1)

'bStr = Right(rng.Value2, Len(rng.Value2) - InStrRev(rng.Value2, " "))

' 조금 있어 보이게 분리하는 방법 ^^;;;

fStr = Mid(rng.Value2, 1, InStr(rng.Value2, " ") - 1)

rStr = Mid(rng.Value2, InStrRev(rng.Value2, " ") + 1)

' 분리된 문자열을 셀에 입력함

rng.Offset(0, 1).Value2 = fStr

rng.Offset(0, 2).Value2 = rStr

Next rng

End Sub

ps> 더 편한 방법?

Sub Split_Text_by_도장님()

' 아래 방법 중 아무거나로 선택해서 진행

' 선택하는 방법도 여러가지가 있으니...

' 아래로 열들이 연속된 경우 사용

'Range("A1", Range("A1").End(xldown)).Select

' 연속되지 않고 중간 열들이 비어 있는 경우

'Range("A1", Range("A65536").End(xlUp)).Select

Columns("A:A").Select

Selection.TextToColumns

End Sub

첨부 화일 : 불 특정한 스페이스로 분리된 셀을 스페이스 앞 뒤로 문자열 분리-20160602

By vinipapa • 무른모 • 0 • Tags: 문자열 분리, 스페이스, 엑셀

엑셀(EXCEL) – 불 특정한 스페이스로 분리된 셀을 스페이스 앞 뒤로 문자열 분리

Leave a Reply Cancel

카테고리

그 밖의 기능

엑셀(EXCEL) – 불 특정한 스페이스로 분리된 셀을 스페이스 앞 뒤로 문자열 분리

Leave a Reply Cancel

카테고리

그 밖의 기능

태그