VB Excel中Paste/PasteSpecial无法粘贴公式或粘贴为对象问题求助

问题原因 #

1. 粘贴内容变为可拖动层叠对象：Excel默认开启CopyObjectsWithCells设置，复制整行时会同步复制行内包含的形状、控件、嵌入图片/图表等浮动对象，粘贴后这些对象会作为独立元素存在，可随意拖动。
2. 直接调用Paste方法报错且公式复制失败：主要有三个原因，一是剪贴板存在其他内容引发冲突，二是整行复制后仅指定单个单元格作为粘贴目标时，互操作接口的区域匹配兼容性差，三是源行公式存在的外部引用在目标工作簿中不存在。

解决方案 #

方案1：临时关闭对象复制，使用PasteSpecial粘贴 #

该方案可以完整保留源行的公式、值、格式、数据验证等所有单元格属性，同时不会复制浮动对象：

// xlApp为你当前使用的Excel应用实例
// 临时关闭复制单元格时附带浮动对象的设置
xlApp.CopyObjectsWithCells = false;

lastEmptyRowInNewFile = xlNewSh.Cells(xlNewSh.Rows.Count, "A").End(Excel.XlDirection.xlUp).Row + 1;
// 复制源行
xlCurSh.Rows(isFound.Row).Copy();
// 粘贴所有单元格属性，排除对象
xlNewSh.Range("A" + lastEmptyRowInNewFile).PasteSpecial(
    Excel.XlPasteType.xlPasteAll, 
    Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, 
    false, 
    false
);
// 清除剪贴板，避免关闭文件时弹出残留提示
xlApp.CutCopyMode = Excel.XlCutCopyMode.xlCopy;

// 恢复默认设置，避免影响用户其他Excel操作
xlApp.CopyObjectsWithCells = true;

方案2：直接赋值公式，绕过剪贴板避免冲突 #

如果剪贴板经常出现异常，推荐使用该方案，执行效率更高且不会出现粘贴报错：

int sourceRow = isFound.Row;
int targetRow = lastEmptyRowInNewFile;
// 仅复制源行实际使用的列，避免整行复制冗余内容
int usedColCount = xlCurSh.UsedRange.Columns.Count;

Excel.Range sourceRange = xlCurSh.Range(xlCurSh.Cells[sourceRow, 1], xlCurSh.Cells[sourceRow, usedColCount]);
Excel.Range targetRange = xlNewSh.Range(xlNewSh.Cells[targetRow, 1], xlNewSh.Cells[targetRow, usedColCount]);

// 直接赋值公式，相对引用会自动适配目标行位置
targetRange.Formula = sourceRange.Formula;
// 粘贴单元格格式
sourceRange.Copy();
targetRange.PasteSpecial(Excel.XlPasteType.xlPasteFormats);
// 清除剪贴板
xlApp.CutCopyMode = Excel.XlCutCopyMode.xlCopy;

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