[excel]我想把一组不确定数量的数据合并到一个单元格里面，该如何使用公式？
创始人
2025-07-18 00:03:49
0次
[excel]我想把一组不确定数量的数据合并到一个单元格里面，该如何使用公式？如图。
这个用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 '把单元区域装到数组arr1
For x = 2 To UBound(arr1, 1) '循环数组arr1的行
If dic.exists(arr1(x, 1)) Then '判断数组元素arr1(x,1)在字典关键词里是否存在,
m = dic(arr1(x, 1)) '如果存在,把关键词arr1(x,1)的条目读出来,在原来的
'基础上累加,通过读取关键词arr1(x,1)的条目,找到在数组arr2那一行上累加
arr2(m, 2) = arr2(m, 2) & ";" & arr1(x, 2) '在数组arr2第m行,第2列上累加
Else '如果关键词arr1(x,1)不存在,那么
k = k + 1 '计数
dic(arr1(x, 1)) = k '把数组arr1(x,1)装到字典dic里,条目装一个k,
'这个k的作用来给数组arr2中找到存放那一行
arr2(k, 1) = arr1(x, 1) '把数组arr1里的第x行第1列装到数组arr2的第k行,第1列
arr2(k, 2) = arr1(x, 2) '把数组arr1里的第x行第2列装到数组arr2的第k行,第2列
End If
Next x
Range("E1:F" & Rows.Count) = "" '清空区域,用来存放新的数据
[E1:F1] = Array("品类", "物品") '填充表头
[E2].Resize(k, 2) = arr2 '把数组arr2读到单元格区域
End Sub
写代码可以处理，需要具体的数据和文档
Excel怎样快速根据重复字段合并其它列数据
这个用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 '把单元区域装到数组arr1
For x = 2 To UBound(arr1, 1) '循环数组arr1的行
If dic.exists(arr1(x, 1)) Then '判断数组元素arr1(x,1)在字典关键词里是否存在,
m = dic(arr1(x, 1)) '如果存在,把关键词arr1(x,1)的条目读出来,在原来的
'基础上累加,通过读取关键词arr1(x,1)的条目,找到在数组arr2那一行上累加
arr2(m, 2) = arr2(m, 2) & ";" & arr1(x, 2) '在数组arr2第m行,第2列上累加
Else '如果关键词arr1(x,1)不存在,那么
k = k + 1 '计数
dic(arr1(x, 1)) = k '把数组arr1(x,1)装到字典dic里,条目装一个k,
'这个k的作用来给数组arr2中找到存放那一行
arr2(k, 1) = arr1(x, 1) '把数组arr1里的第x行第1列装到数组arr2的第k行,第1列
arr2(k, 2) = arr1(x, 2) '把数组arr1里的第x行第2列装到数组arr2的第k行,第2列
End If
Next x
Range("E1:F" & Rows.Count) = "" '清空区域,用来存放新的数据
[E1:F1] = Array("品类", "物品") '填充表头
[E2].Resize(k, 2) = arr2 '把数组arr2读到单元格区域
End Sub
写代码可以处理，需要具体的数据和文档
这个可以用textjoin函数。如图所示：
textjoin函数
输入完成后，按Ctrl、shift与enter键。下拉即可。
相关内容
最新资讯
重庆菜园坝有污水排入长江？当地...
极目新闻记者 邓波7月20日，有网友发视频称，重庆市渝中区菜园坝街道水果批发市场外疑似排污，气味刺鼻...
盛夏赏荷正当时
7月12日，武汉植物园荷花盛放，约16000平方米展示区里，200余种荷花亭亭玉立。游客穿梭其中，沉...
国安部披露“电子间谍”：境外生...
在如今高度数字化的时代，网络安全的重要性愈发凸显，不仅关乎着个人隐私、企业秘密，甚至影响着国家安全。...
浙江2025年高考普通类一段平...
今天上午，浙江省2025年高考普通类一段平行志愿正式投档，各高校专业投档分数线随后揭晓。接下来，各招...
专业度测评 澳洲留学机构申请方...
专业度测评 | 澳洲留学机构申请方案匹配度指数榜单 一、申请方案匹配度指数简介 根据国际教育测评中心...
一地成立“烧烤研究院”：正编写...
据微信公众号“岳阳发布”，近日，岳阳开放大学与岳阳市烧烤协会进行战略合作签约，双方将联合成立“岳阳烧...
原创 1...
第一阵营微妙稳固，二、三阵营存大变数，第四阵营谋逆天改命。 全球汽车产业的百年未有之大变局，过去5...
洛阳、大连、青岛等超十地餐协发...
7月19日，洛阳市餐饮与饭店行业协会、山东省烹饪协会相继发布倡议书，呼吁淘宝闪购（饿了么）、京东、美...
《繁星》殡葬题材引“首部”之争...
新剧《此处通往繁星》以殡仪馆职场为背景，郭麒麟饰演主角，通过独特情节展现殡葬从业者生活，主打“内娱首...