在SHEET2表的A2单元格输入公式=IF(B2<>"",ROW()-1,"")
下拉公式。
在SHEET2表的B2单元格输入公式=IFERROR(INDEX(Sheet1!$D$1:$D$10000,SMALL(IF((Sheet1!$B$1:$B$10000="已支付")*(Sheet1!$C$1:$C$10000=""),ROW(Sheet1!$A$1:$A$10000),4^8),ROW(A1))),"")
B2单元格公式为数组公式，按Ctrl+Shift+Enter结束公式，使公式前后出现大括号{}，拖动填充柄下拉公式即可。 如图：
vba代码通过一次循环可以解决
网页链接
在SHEET2的B2中输入或复制粘贴下列公式
=INDEX(SHEET1!D:D,SMALL(IF((SHEET1!B$2:B$16="已支付")*(SHEET1!C$2:C$16=""),ROW($2:$16),4^8),ROW(A1)))&""
按三键CTRL+SHIFT+ENTER结束公式输入
下拉填充
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024