숫자 분리

8월 26 2015

엑셀(EXCEL) – 수식으로 된 셀에서 숫자만 각 셀로 분리하여 처리하기

언젠가 다른 사업부의 생산 부서에서 일하는 사원이 생산 일보를 엑셀에서 작성하는데
제품 아이템마다 F2를 눌러 =25+27+24 … 이런 식으로 입력하는 것을 보고 아이디어를
생각하다가 그만 둔 프로그램이 있었는데 아래의 질문과 같이 비슷한 내용이 있어서
이번에는 시간적 여유가 있고 해서 간단한 팁을 만들어 보았습니다.

http://www.clien.net/cs2/bbs/board.php?bo_table=kin&wr_id=3501134
(엑셀에서 셀 입력내용을 가져올수있을까요?)

간단히 해석하면 셀에 지속적으로 +, – 등으로 추가된 데이터를 분리해 달라는 내용입니다.

저번에 해결하려는 내용을 거꾸로 해석해서 두가지 버전으로 작성해 보았습니다. 우선
해당 셀이 공식(즉 산술식으로 구성되어 있는지 확인)하는 루틴을 작성해서 그 셀 타입이
‘Formulra’일 때만 데이터를 분리 처리하도록 함수를 만들어 인자를 넘깁니다.

Option Explicit

Function ShowFormulas(Check As Range)

 Dim TempStr As String
 
' 셀에 공식?이 있을 때만 처리하도록 코멘트 처리
 Select Case True
 
' Case Check.HasArray
 
' TempStr = "{" &amp; Check.Array &amp; "}"
 
 Case Check.HasFormula
 
 TempStr = Check.Formula
 
' Case Else
 
' TempStr = Check.Value
 
 End Select
 
 ShowFormulas = TempStr

End Function

' 특정 셀의 공식을 숫자로 분리하는 루틴
Sub Num_Ext_In_Cell(TargetStr As String)

 Dim TempStr As String
 
 Dim intNum As Integer
 Dim NumCnt As Integer
 
 NumCnt = 0
 TempStr = ""
 
 For intNum = 1 To Len(TargetStr)
 If IsNumeric(Mid(TargetStr, intNum, 1)) Or Mid(TargetStr, intNum, 1) = "." Then
 
 TempStr = TempStr + Mid(TargetStr, intNum, 1)
 
 ActiveCell.Offset(0, NumCnt).Value = TempStr
 
 Else
 
 NumCnt = NumCnt + 1
 
 TempStr = ""
 
 End If
 
 Next intNum
 
End Sub

' 특정 영역을 선택해서 공식을 숫자로 분리하는 루틴
Sub Num_Ext_In_Range()

 Dim TempStr As String
 Dim RngStr As String
 
 Dim intNum As Integer
 Dim NumCnt As Integer
 Dim RowCnt As Integer
 
 Dim RngCel As Range
 Dim RngRef As Range
 
 NumCnt = 0
 TempStr = ""
 
' 검색할 셀의 조건을 셀을 클릭해서 선택
 Set RngRef = Application.InputBox("셀 선택", , Type:=8)


' 검색할 영역에서 선택된 셀과 같은 조건이 있으면 카운트
 For Each RngCel In RngRef
 
 RngStr = ShowFormulas(RngCel)
 
 For intNum = 1 To Len(RngStr)
 If IsNumeric(Mid(RngStr, intNum, 1)) Or Mid(RngStr, intNum, 1) = "." Then
 
 TempStr = TempStr + Mid(RngStr, intNum, 1)
 
 RngCel.Offset(0, NumCnt).Value = TempStr
 
 Else
' 열의 위치 수정
 NumCnt = NumCnt + 1
' 임시 문자열 초기화
 TempStr = ""
 
 End If
 
 Next intNum

' 열의 위치 리셋
 NumCnt = 0
 
 Next
 
End Sub

100

101

102

103

104

105

Option Explicit

Function ShowFormulas(Check As Range)

Dim TempStr As String

' 셀에 공식?이 있을 때만 처리하도록 코멘트 처리

Select Case True

' Case Check.HasArray

' TempStr = "{" & Check.Array & "}"

Case Check.HasFormula

TempStr = Check.Formula

' Case Else

' TempStr = Check.Value

End Select

ShowFormulas = TempStr

End Function

' 특정 셀의 공식을 숫자로 분리하는 루틴

Sub Num_Ext_In_Cell(TargetStr As String)

Dim TempStr As String

Dim intNum As Integer

Dim NumCnt As Integer

NumCnt = 0

TempStr = ""

For intNum = 1 To Len(TargetStr)

If IsNumeric(Mid(TargetStr, intNum, 1)) Or Mid(TargetStr, intNum, 1) = "." Then

TempStr = TempStr + Mid(TargetStr, intNum, 1)

ActiveCell.Offset(0, NumCnt).Value = TempStr

Else

NumCnt = NumCnt + 1

TempStr = ""

End If

Next intNum

End Sub

' 특정 영역을 선택해서 공식을 숫자로 분리하는 루틴

Sub Num_Ext_In_Range()

Dim TempStr As String

Dim RngStr As String

Dim intNum As Integer

Dim NumCnt As Integer

Dim RowCnt As Integer

Dim RngCel As Range

Dim RngRef As Range

NumCnt = 0

TempStr = ""

' 검색할 셀의 조건을 셀을 클릭해서 선택

Set RngRef = Application.InputBox("셀 선택", , Type:=8)

' 검색할 영역에서 선택된 셀과 같은 조건이 있으면 카운트

For Each RngCel In RngRef

RngStr = ShowFormulas(RngCel)

For intNum = 1 To Len(RngStr)

If IsNumeric(Mid(RngStr, intNum, 1)) Or Mid(RngStr, intNum, 1) = "." Then

TempStr = TempStr + Mid(RngStr, intNum, 1)

RngCel.Offset(0, NumCnt).Value = TempStr

Else

' 열의 위치 수정

NumCnt = NumCnt + 1

' 임시 문자열 초기화

TempStr = ""

End If

Next intNum

' 열의 위치 리셋

NumCnt = 0

End Sub

이제 버튼 하나 만드시고 만든 버튼에 각각의 매크로 연결하시면 사용 가능하십니다.

ps> 어제 잠깐 고민해 보니 해결 방법이 보여서 진행해 보니 실수부분도 처리가능하네요.

If IsNumeric(Mid(TargetStr, intNum, 1)) Or Mid(TargetStr, intNum, 1) = “.” Then

TempStr = TempStr + Mid(TargetStr, intNum, 1)

ActiveCell.Offset(0, NumCnt).Value = TempStr

위과 같이 바꾸면 실수도 처리가 가능합니다. 추가로 팁을 올리기는 뭐해서 추가합니다.
영역 선택 부분도 조건식 추가하고 정수 처리하는 부분 제거하시면 됩니다.

첨부 자료 : 20150826-셀에서 숫자만 분리 추출

By vinipapa • 무른모 • 0 • Tags: 숫자 분리, 숫자만 추출, 엑셀, 팁

숫자 분리

엑셀(EXCEL) – 수식으로 된 셀에서 숫자만 각 셀로 분리하여 처리하기

카테고리

그 밖의 기능

숫자 분리

엑셀(EXCEL) – 수식으로 된 셀에서 숫자만 각 셀로 분리하여 처리하기

카테고리

그 밖의 기능

태그