할머니 생신이라 가족이 모여 식사

고향의 산은 푸르름으로 변해가는데 …

빈이 엄마 생일이라 엄마 친구랑 빈이랑 …

가격 대비 괜찮은 듯 한 구성

[codepeople-post-map]

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

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

첨부 화일 : 20160401-분할계산 후 합침