如何将Excel中黄色高亮单元格内容批量复制到一行？

方法一：使用VBA宏（高效批量处理） #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键左侧面板的工作簿名称，选择「插入」→「模块」
3. 粘贴以下代码：

Sub ExtractYellowCells()
    Dim rng As Range
    Dim cell As Range
    Dim outputCol As Integer
    
    ' 设置输出起始位置，示例为当前工作表的A1，可自行修改
    outputCol = 1
    
    ' 搜索范围为当前工作表的已用区域，可按需指定具体范围（如Range("A1:Z100")）
    Set rng = ActiveSheet.UsedRange
    
    For Each cell In rng
        ' 匹配标准黄色填充色，若你的黄色不同，替换为对应RGB值（可通过单元格格式查看）
        If cell.Interior.Color = RGB(255, 255, 0) Then
            ActiveSheet.Cells(1, outputCol).Value = cell.Value
            outputCol = outputCol + 1
        End If
    Next cell
    
    MsgBox "提取完成"
End Sub

4. 按下F5运行宏，或者返回Excel界面，通过「开发工具」→「宏」选择ExtractYellowCells执行
5. 若黄色不是标准亮黄，可右键高亮单元格→「设置单元格格式」→「填充」查看RGB值，替换代码中的参数

方法二：无需宏的手动操作 #

1. 按下Ctrl + F打开查找对话框，点击「选项」
2. 点击「格式」→「填充」，选择与目标单元格一致的黄色，确认后返回查找界面
3. 点击「查找全部」，此时对话框下方会列出所有匹配的黄色单元格
4. 点击查找结果列表中的任意一项，按下Ctrl + A选中所有结果
5. 按下Ctrl + C复制这些单元格
6. 转到目标位置（如新工作表的A1），右键选择「选择性粘贴」→「转置」，内容会自动排列成一行
7. 若转置后仍有分散情况，直接选中转置后的区域，复制到同一行的起始单元格即可

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