如何將字串與另一個單元格中的每個逗號分隔值組合起來

Question

我正在處理 A 列中的帳號清單和 B 列中的子清單。我想做的是為 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)))

作為陣列公式，退出編輯模式時需要使用 Ctrl-Shift-Enter 而不是 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)

@，假設資料中未使用該符號，否則使用任何其他未使用的符號。