如图，excel函数，根据左边内容，按岗位自动排序填充在右边框内

AIT+F11

插入模块，复制下面内容粘贴

sub 排序()

i=range("a1").end(xldown).row '获取A例最后一行非空单元格

range(cells(2,"a"),cells(i,"d")).copy '复制A2到第四例最后一行数据

cells(2,"f").pastespecial 12'选择性粘贴到F2单元格

Range(cells(2,"f"),cells(i,"i")).Sort key1:=Range("h2"), order1:=1'按岗位以升序排序

end sub

然后你可以在表格内插入一个小图片，缩小一点，在图片上点右键指定宏,选择这个排序就可以了，每点一次就会排序，另存为启用宏的文件 ；

可以发给你，已经做好，不过可能不是那么完美，基本够用