如图例:
E1=IFERROR(INDEX(A:A,SMALL(IF(($B$1:$B$99>0)+($C$1:$C$99>0),ROW($1:$99)),ROW(A1))),"")
数组公式,右拉下拉(或F1=IF(E2="","",VLOOKUP($E2,$A:$C,COLUMN(B2),)),右拉下拉)
在一个表里录个宏,然后前后加上点循环
Dim sh as Worksheet
For Each sh in Worksheets
sh.Activate
' Your Macro here
Next