如何在Excel VBA复制粘贴后清除粘贴区域的选中状态？

以下是从优到劣的几种实现方式，可根据业务场景选择：

• 最优方案：从根源避免选中状态生成
  优先放弃基于剪贴板的Copy+Paste操作，改用区域直接赋值，全程不会产生任何区域选中效果，也无需处理跨表激活逻辑，性能更优：

  ' 示例：将Sheet1的A1:C10内容复制到Sheet2的D1起始区域
  Dim sourceRng As Range
  Set sourceRng = Sheet1.Range("A1:C10")
  
  ' 仅复制值
  Sheet2.Range("D1").Resize(sourceRng.Rows.Count, sourceRng.Columns.Count).Value = sourceRng.Value
  ' 需复制格式的话追加以下代码
  sourceRng.Copy
  Sheet2.Range("D1").PasteSpecial Paste:=xlPasteFormats
  Application.CutCopyMode = False
  

• 次优方案：无感知切换取消选中
  如果必须保留粘贴操作逻辑，可以用屏幕更新锁封装切换操作，用户完全感知不到工作表切换过程，也不会出现闪屏：

  Dim originalSheet As Worksheet
  ' 记录当前用户正在查看的工作表
  Set originalSheet = ActiveSheet
  
  ' 关闭屏幕更新，隐藏操作过程
  Application.ScreenUpdating = False
  ' 切换到粘贴目标工作表，选中A1取消大范围选中
  Sheets("粘贴目标工作表名称").Activate
  Sheets("粘贴目标工作表名称").Range("A1").Select
  ' 切回用户原本查看的工作表
  originalSheet.Activate
  ' 恢复屏幕更新
  Application.ScreenUpdating = True
  
  Application.CutCopyMode = False
  

• 极简方案：无需保留当前激活表场景
  如果业务逻辑不需要保留用户原本打开的工作表，直接切换目标工作表选中即可：

  Sheets("粘贴目标工作表名称").Activate
  Sheets("粘贴目标工作表名称").Range("A1").Select
  Application.CutCopyMode = False
  

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