我来帮你搞定这个需求，下面提供两种实用方案，分别适配不同场景：

方案1：公式法（无需宏，适合手动更新场景） #

如果你的Excel是365/2021及以上版本，用FILTER函数就能一步到位，这是最简洁的方式：

• 在D12单元格输入公式：

  =FILTER(K8:K18, M8:M18="Y", "")
  

• 在E12单元格输入公式：

  =FILTER(L8:L18, M8:M18="Y", "")
  

公式会自动筛选出M列为"Y"的对应K、L列内容，并且自动连续排列，不会留下空白行，源数据更新时结果也会同步刷新。

要是你用的是旧版Excel（不支持FILTER），可以用数组公式组合实现：

• D12单元格输入：

  =IFERROR(INDEX($K$8:$K$18, SMALL(IF($M$8:$M$18="Y", ROW($M$8:$M$18)-ROW($M$8)+1), ROWS($D$12:D12))), "")
  

  输入完成后按 Ctrl+Shift+Enter 触发数组公式（新版Excel直接回车即可），然后下拉公式到D22左右（覆盖所有可能的结果行数）。
• E12单元格同理，把公式里的$K$8:$K$18替换成$L$8:$L$18就行。

方案2：VBA宏（适合自动化/批量操作场景） #

如果需要一键执行或者定期批量更新数据，写个简单的宏就很方便：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 右键点击当前工作表，选择「插入」→「模块」
3. 粘贴以下代码：

   Sub CopyMatchingRows()
       Dim ws As Worksheet
       Dim targetRow As Integer
       Dim i As Integer
       
       ' 指定操作的工作表（这里用当前激活的工作表）
       Set ws = ActiveSheet
       ' 目标起始行设置为12
       targetRow = 12
       
       ' 遍历8到18行的M列
       For i = 8 To 18
           ' 兼容可能的空格和大小写差异
           If UCase(Trim(ws.Cells(i, "M").Value)) = "Y" Then
               ' 复制K列内容到D列目标行
               ws.Cells(targetRow, "D").Value = ws.Cells(i, "K").Value
               ' 复制L列内容到E列目标行
               ws.Cells(targetRow, "E").Value = ws.Cells(i, "L").Value
               ' 目标行下移一行，确保结果连续排列
               targetRow = targetRow + 1
           End If
       Next i
   End Sub
   

4. 按F5运行宏，或者回到Excel界面给按钮绑定这个宏，以后一键点击就能执行。

小提示 #

• 公式法是动态同步的，源数据变化时结果会自动更新；
• VBA宏是静态复制，源数据更新后需要重新运行宏才会同步；
• 代码里加了Trim和UCase，能兼容M列"Y"前后有空格或者小写"y"的情况。

内容的提问来源于stack exchange，提问作者Chris