作者：乔山办公网日期：
返回目录：excel表格制作
sheet1的代码
回答一个吧百。度另外一个你再问问吧。不过我看了一下，你的这个做法整答体思路可能需要版修改一权下。
sub xx
dim x,i,t
for x = 3 to [A65536].end(xlup).row
for i = cells(x,5) to cells(x,6)
t = t & "," & Format(i, "yyyy年m月d日")
next i
cells(x,7) = Mid(t, 2)
next x
end sub
选中B列，
格式
条件格式
点“单元格数值”，选“公式”
填入
=countif(A:A,B1)>0
同时设置单元格字体色。
录制宏，直接操作一下排序，生成的代码就是了
升序还是降序？
自己录个宏
再改一下代码就行了