연속적으로 이어지는 셀 주소 만드는 사용자 함수 (ShrStrings)

[ 연속적으로 이어지는 셀 주소 만들기 ] 에 대해 알아봅니다.

A B C 1 원래문자열 연속으로 이어지는 문자열 2 C1~C3,C6,C7,C19 C1,C2,C3,C6,C7,C19 3 R25~R33 R25,R26,R27,R28,R29,R30,R31,R32,R33 4 C8~C17 C8,C9,C10,C11,C12,C13,C14,C15,C16,C17 5 R10 R10

Sheet1 시트 에 사용한 수식 입니다. by MicroSoft Excel v 2003   $ 가 있는 수식은 절대(혼합)참조로 셀 주소를 고정합니다. 참조하세요!!
No	셀주소	왼쪽의 셀에 수식을 넣으면 오른쪽 결과가 나옵니다.	결과	비고
1	C2	=ShrStrings(A2)	C1,C2,C3,C6,C7,C19
2		C2  셀의 수식을 여기에 복사하세요 -→ C2:C5
보시는 내용은 위의 표에 값이, 아래의 표에는 해당 셀의 수식이 있습니다.     원하는 부분을 시트(셀)에 붙여 넣으세요.     도움이 되시기를 바랍니다. 수식에 사용자 정의 함수가 있습니다. 다른 파일에서는 안 될 수 있습니다.  주) 사용자 정의 함수를 많은 셀에 사용하면 버벅거릴 수 있습니다. 사용자 정의 함수를 사용했던 영역은 그 영역을 복사한 다음 편집/메뉴에서 선택하여 붙여넣기를 선택, 값으로 변환하는 것이 좋습니다.

Option Explicit

Function ShrStrings(str As String)
Dim tmp1, tmp2
Dim i As Double, j As Double, k As Double
tmp1 = Split("," & str, ",")
Dim cnt1 As Double
Dim cnt2 As Double
     cnt1 = UBound(tmp1)
For i = 1 To cnt1
     tmp2 = Split("~" & tmp1(i), "~")
     k = UBound(tmp2)
     If k = 1 Then
          ShrStrings = ShrStrings & "," & tmp1(i)
     Else
          cnt2 = Range(tmp2(2)).Row - Range(tmp2(1)).Row + 1
          For j = 1 To cnt2
               ShrStrings = ShrStrings & "," & Range(tmp2(1))(j, 1).Address(0, 0)
          Next
     End If
Next
ShrStrings = Trim(Mid(ShrStrings, 2))
End Function

잘 안될 경우 메일 주시거나 리플 남겨주세요 이 파일을 다운로드 해보세요	invalid-file	invalid-file