MS Excel 2007 및 2010에서 쉼표로 구분 된 값의 범위를 개별 값으로 확장하는 방법

-1

다양한 값을 쉼표로 구분하여 개별 값으로 확장하는 방법?

예 1 :

변하게 하다 R1-R8 에 R1, R2, R3, R4, R5, R6, R7, R8
1-10 TO 1, 2, 4, 5, 6, 7, 8, 9, 10

이러한 확장 된 범위를 쉼표로 구분하여 하나의 셀에 배치해야합니다.
이것을 할 수있는 공식이 있습니까?

microsoft-excel-2010 microsoft-excel-2007 range

— Frank
소스

슈퍼 유저에 오신 것을 환영합니다. 우리는 대본 작성 서비스가 아닙니다. 사용자는 지금까지 시도한 내용 (사용중인 코드 포함)과 특정 문제를 해결할 수 있도록 막혀있는 곳을 알려줄 것을 기대합니다. 코드를 요구하는 질문은 너무 광범위하고있을 가능성이 큽니다. 보류 또는 폐쇄 . 읽어주세요 좋은 질문을하는 방법은 무엇입니까? .

— DavidPostill

이 VBA 코드는 작업을 수행합니다.

Public Function sequence(data As String)
    result = ""
    endvalues = Split(data, "-")
    minval = endvalues(0)
    maxval = endvalues(1)
    lminval = Len(minval)
    lmaxval = Len(maxval)
    For i = 1 To lminval
        singlechar = Mid(minval, i, 1)
        If IsNumeric(singlechar) = True Then
            minchar = Left(minval, i - 1)
            minnum = Right(minval, lminval - (i - 1))
            i = lminval
        End If
    Next i
    For i = 1 To lmaxval
        singlechar = Mid(maxval, i, 1)
        If IsNumeric(singlechar) = True Then
            maxchar = Left(maxval, i - 1)
            maxnum = Right(maxval, lmaxval - (i - 1))
            i = lminval
        End If
    Next i
    For i = minnum To maxnum
        result = result & minchar & i & ","
    Next i
    result = Left(result, Len(result) - 1)
    sequence = result
End Function

아래의 매크로 / VBA 열기 ThisWorkbook 모듈을 삽입하고 창 오른쪽에 붙여 넣으십시오.

셀에있는 경우 A1 너는 예를 들어있다. R1-R5 셀에 B1 넣을 수 있습니다. =sequence(A1) 결과를 얻으려면 R1, R2, R3, R4, R5

— jcbermu
소스