합침

4월 1 2016

엑셀(EXCEL) – 한 셀의 숫자 자료 분리해서 계산 후 다시 합치기

너무 간단해서 올리기기 뭐 하지만 나중의 기록을 위해서… 필요한 사람이 있을 것 같아서요.

Option Explicit

Sub Cal_Data()

Dim ValArray() As String
Dim src_txt As String, mrg_txt As String
Dim i As Integer, cal_value As Integer

Dim rng As Range, SelRng As Range

Set SelRng = Application.InputBox(“분리할 참조 영역 선택”, Type:=8)

For Each rng In SelRng

ValArray() = Split(rng.Value2, “,”)

For i = LBound(ValArray) To UBound(ValArray)
cal_value = (Val(ValArray(i) + 1)) / 2
mrg_txt = mrg_txt & cal_value & “,”

Next i

rng.Offset(0, 1) = Left(mrg_txt, Len(mrg_txt) – 1)

mrg_txt = “”

Next rng

MsgBox “분리 완료”

End Sub