Excel 365：如何复制非连续单元格并粘贴到对应非连续位置

方法一：定位条件+精准粘贴 #

• 选中所有数据区域，按Ctrl+G打开定位窗口，点击「定位条件」，选择「单元格颜色」（匹配你的高亮颜色），确定后即可选中所有目标高亮单元格。
• 按Ctrl+X剪切这些单元格，再次打开定位窗口，选择「定位条件」→「空值」，提前选中目标相邻列的对应行范围（比如原高亮在F列，要移到E列，就选中E列的对应行区域）。
• 按Ctrl+V粘贴，就能精准对应行号把内容放到相邻单元格。

方法二：VBA脚本批量处理（适合重复场景） #

如果经常遇到这类格式问题，可以用以下脚本快速处理：

Sub MoveHighlightedCells()
    Dim rng As Range, cell As Range
    ' 选中所有带高亮格式的非空单元格
    Set rng = Cells.SpecialCells(xlCellTypeAllFormatConditions).SpecialCells(xlCellTypeConstants)
    For Each cell In rng
        ' 将内容移动到左侧相邻单元格并覆盖
        cell.Offset(0, -1).Value = cell.Value
        ' 清空原高亮单元格内容
        cell.ClearContents
    Next cell
End Sub

• 按Alt+F11打开VBA编辑器，插入模块，粘贴代码后运行即可。如果高亮颜色不是默认格式，可修改代码中匹配颜色的逻辑，用cell.Interior.ColorIndex对应你的高亮色值。

注意事项 #

• 操作前一定要备份原文件，防止误操作丢失数据。
• 若目标列存在有效数据，可先筛选出含「reimb & other payments」的无效行，单独处理这些行的高亮单元格，避免覆盖有用内容。

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