문자열을 다른 셀의 각 쉼표로 구분된 값과 결합하는 방법

Question

저는 A 열의 계좌 번호 목록과 B 열의 하위 목록으로 작업하고 있습니다. A 열에는 계좌 번호만 있습니다(예: 310050). B 열에는 하위 목록이 있습니다(예: 10,11,30). 내가 하려는 것은 C 열에 대한 방정식을 만들어 31005010,31005011,31005030을 내뱉는 것입니다. 그러나 내가 연구하는 모든 것은 쉼표를 행이나 열로 분할하는 방법만 보여줍니다. 여러분은 이 문제를 어떻게 해결하시겠습니까? 현재 Excel 설정

Answer 1

Office 365 Excel 구독이 있는 경우 다음 배열 수식을 사용하세요.

=TEXTJOIN(",",TRUE,A1&TRIM(MID(SUBSTITUTE(B1,",",REPT(" ",999)),(ROW(INDIRECT("1:" & LEN(B1)-LEN(SUBSTITUTE(B1,",",""))+1))-1)*999+1,999)))

배열 수식이므로 편집 모드를 종료할 때 Enter 대신 Ctrl-Shift-Enter를 사용하여 확인해야 합니다. 올바르게 수행되면 Excel에서 {}수식을 입력합니다.

---

구독이 없으면 통합 문서에 첨부된 모듈에 이 코드를 넣을 수 있습니다. 그런 다음 위에서 설명한 수식을 사용합니다.

Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
    Dim d As Long
    Dim c As Long
    Dim arr2()
    Dim t As Long, y As Long
    t = -1
    y = -1
    If TypeName(arr) = "Range" Then
        arr2 = arr.Value
    Else
        arr2 = arr
    End If
    On Error Resume Next
    t = UBound(arr2, 2)
    y = UBound(arr2, 1)
    On Error GoTo 0

    If t >= 0 And y >= 0 Then
        For c = LBound(arr2, 1) To UBound(arr2, 1)
            For d = LBound(arr2, 1) To UBound(arr2, 2)
                If arr2(c, d) <> "" Or Not skipblank Then
                    TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
                End If
            Next d
        Next c
    Else
        For c = LBound(arr2) To UBound(arr2)
            If arr2(c) <> "" Or Not skipblank Then
                TEXTJOIN = TEXTJOIN & arr2(c) & delim
            End If
        Next c
    End If
    TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function

Answer 2

TEXTJOIN기능을 사용할 수 없고 UDF어떤 이유로 솔루션이 바람직하지 않은 경우 이 워크시트 공식이 도움이 될 것입니다.

=SUBSTITUTE("@"&SUBSTITUTE(B1,",",",@"),"@",A1)

@, 데이터에 기호가 사용되지 않는다고 가정하고 , 그렇지 않으면 대신 사용되지 않은 다른 기호를 사용하십시오.