[excel]我想把一組不確定數(shù)量的數(shù)據(jù)合并到一個單元格里面，該如何使用公式？

這個用VBA比較方便，代碼如下
Sub 二列多行()
[E1:F9999].ClearContents
Dim arr1, dic, x, arr2(1 To 10, 1 To 2), m%, k% '定義變量
Set dic = CreateObject("Scripting.dictionary") '后期綁定引用字典
arr1 = Range("A1").CurrentRegion '把單元區(qū)域裝到數(shù)組arr1
For x = 2 To UBound(arr1, 1) '循環(huán)數(shù)組arr1的行
If dic.exists(arr1(x, 1)) Then '判斷數(shù)組元素arr1(x,1)在字典關(guān)鍵詞里是否存在,
m = dic(arr1(x, 1)) '如果存在,把關(guān)鍵詞arr1(x,1)的條目讀出來,在原來的
'基礎(chǔ)上累加,通過讀取關(guān)鍵詞arr1(x,1)的條目,找到在數(shù)組arr2那一行上累加
arr2(m, 2) = arr2(m, 2) & ";" & arr1(x, 2) '在數(shù)組arr2第m行,第2列上累加
Else '如果關(guān)鍵詞arr1(x,1)不存在,那么
k = k + 1 '計數(shù)
dic(arr1(x, 1)) = k '把數(shù)組arr1(x,1)裝到字典dic里,條目裝一個k,
'這個k的作用來給數(shù)組arr2中找到存放那一行
arr2(k, 1) = arr1(x, 1) '把數(shù)組arr1里的第x行第1列裝到數(shù)組arr2的第k行,第1列
arr2(k, 2) = arr1(x, 2) '把數(shù)組arr1里的第x行第2列裝到數(shù)組arr2的第k行,第2列
End If
Next x
Range("E1:F" & Rows.Count) = "" '清空區(qū)域,用來存放新的數(shù)據(jù)
[E1:F1] = Array("品類", "物品") '填充表頭
[E2].Resize(k, 2) = arr2 '把數(shù)組arr2讀到單元格區(qū)域
End Sub

寫代碼可以處理，需要具體的數(shù)據(jù)和文檔