D3单元格输入=IFERROR(SMALL(IF(B:B="YES",A:A,""),ROW(A1)),"")
Shift+Ctrl+Enter组合生成数组公式
往下填充公式直到出现空格，如图
有两种方法：1，用数组公式：输入=IFERROR(SMALL(IF(B:B="YES",A:A,""),ROW(A1)),"")，输入完成后按Shift+Ctrl+Enter 组合键生成数组公式，然后下拉2、用vba完成
