求助：合并同一表内相同编号多行数据

b5747

我有个数据表，表的行和列均不固定，要合并同一编号下多行数据（注：同一编号下，每列数据唯一）；表如下：

编号	病人姓名	a	b	c	d	…	…
1	毛建新	5.7		8.1	0.46
1	毛建新		21.9
2	张美娣	4.11		5.8
2	张美娣		14.8
2	张美娣				0.46
3	朱敖亮		55.4
3	朱敖亮	6.52		8.3
4	仇秀英		62.8
4	仇秀英			6.3
4	仇秀英
4	仇秀英	5.39
4	仇秀英				0.28
…
…

目标表如下：

编号	病人姓名	a	b	c	d	…	…
1	毛建新	5.7	21.9	8.1	0.46
2	张美娣	4.11	14.8	5.8	0.46
3	朱敖亮	6.52	55.4	8.3
4	仇秀英	5.39	62.8	6.3	0.28
…
…

我试了多种方法，均不能成功，请大家帮帮忙，谢谢！！！

梁家大侠

合并计算功能了解一下。

b5747

朱荣兴 发表于 2019-6-4 09:56
一个字典问题，但是，没有附件帮不了你的

字典没接触过，想用透视表，可有列的限制。需要附件吗，我提问就是表格啊

b5747

梁家大侠 发表于 2019-6-4 08:28
合并计算功能了解一下。

没用过，我试试

b5747

梁家大侠 发表于 2019-6-4 08:28
合并计算功能了解一下。

貌似合并计算要有能合并的数据，表中没有能合并的数据，提示“没有数据被合并计算”

summeren

提取不重复的名字 然后用 sumifs是不是可以解决

lmw17009

如果你的表格就是目前的这一种，可以这样写。
dim i,MaxLine,NameStr,NameStrNext,Count,StartLine,EndLine,IsFind
MaxLine=range("B1").end(xldown).row   '假设B列为不动的名字列,假设为第2列
for i=2 to maxline
NameStr=cells(i,2)
NameStrNext=cells(i+1,2)
if NameStr=NameStrNext then
    count=coun+1
    startline=i
    IsFind=true
else
endline=i-1
dim jif IsFInd then
for j=startline to endline
'这里写合并数据的操作 竖着加一下就行
next
IsFind=falsecount=0

end if
end if

next

以上代码有少量漏洞需要你自己补，要加不少防呆措施，但是绝对能满足你这个表格。
因为我刚刚写过类似的计算表。