Question

Excel里，如图所示源数据相同的人名可能对应不同的日期。想要达到的效果如图，就是想把相同名字的汇

Excel里，如图所示源数据相同的人名可能对应不同的日期。想要达到的效果如图，就是想把相同名字的汇总到一起，然后日期降序排列。不同名字之间空格区分，或者标注上不同的颜色。请问怎么实现呢？

Answer 1

全选排序。主要关键词 人名 次要关键词日期 选择降序 好了以后自己设置下空格。变下底色。

望采纳。急着需要财富值。

Answer 2

这个，你不是已经做出来了吗

追问

这些数据少，我收工区分的，实际上有很多数据……

追答

右击sheet标签，查看代码，把下列代码粘贴进去，然后按F5，查看结果是否正确，如果正确，删除代码，正常保存表格。
提示，无法回退，请事先保存好副本
Sub paixu()
Dim r%
Range("a1").CurrentRegion.Sort key1:="人员", order1:=xlAscending, key2:="日期", order2:=xlAscending, Header:=xlYes
r = Range("b1").End(xlDown).Row
Do Until r = 2
If Cells(r, 2) Cells(r - 1, 2) Then Range("a" & r & ":b" & r).Insert (xlShiftDown)
r = r - 1
Loop
End Sub

追问

非常感谢，这个可行~~~但是有两个情况，第一个，这么排序出来的是安日期来的，我想让相同的人员对应不同的日期。第二个源数据的行数和列数会有增减，但是都按照那两个指标来筛选。如果行列数变动了，代码怎么修改一下呢？

追答

代码的第一排序是“人员”，你检查一下列名，不应该是日期。

行数增加没关系，列数增加对于后半段的插入空行有影响，你把Range("a" & r & ":b" & r)中的“b”改成你列的最后一列名字即可

追问

就是按照你的代码来的，但是还是有的人名没在一起。看一下图李四还是分开的~

你好，有个代码的问题，帮我看一下哈