在SHEET2工作表A2输入公式:=INDEX(OFFSET(SHEET1!$A:$A,,MATCH(A$1,SHEET1!$1:$1,)-1),SMALL(IF(SHEET1!$A$1:$A$1000="张三",ROW($1:$1000),65536),ROW()-1))&""公式以CTRL+SHIFT+ENTER三键结束。将公式向右向下复制。 注:在其他各工作表中只要修改公式中的“张三”即可。
VBA可以解决