Excel 365：选中区域去重存剪贴板不修改源及快捷键设置

1. 改进后的去重复制剪贴板宏 #

以下代码不会修改源选中区域，采用临时工作表处理去重逻辑，并使用更稳定的剪贴板操作方式：

Sub CopyUniqueValuesToClipboard()
    Dim wsTemp As Worksheet
    Dim rngSelected As Range
    Dim rngUnique As Range
    Dim uniqueText As String
    Dim objClipboard As Object
    
    ' 校验是否选中有效区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中一个单元格区域！", vbExclamation
        Exit Sub
    End If
    
    Set rngSelected = Selection
    
    ' 创建隐藏临时工作表用于处理数据
    Set wsTemp = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsTemp.Visible = xlSheetHidden
    
    ' 复制源数据到临时表，避免修改原数据
    rngSelected.Copy wsTemp.Range("A1")
    
    ' 按第一列移除重复值（无表头）
    wsTemp.UsedRange.RemoveDuplicates Columns:=1, Header:=xlNo
    
    ' 获取去重后的有效数据区域
    Set rngUnique = wsTemp.Range("A1").Resize(wsTemp.Cells(wsTemp.Rows.Count, "A").End(xlUp).Row)
    
    ' 转换为逗号分隔的字符串
    uniqueText = Join(Application.Transpose(rngUnique.Value), ",")
    
    ' 使用Office内置剪贴板对象存入数据，稳定性更高
    Set objClipboard = CreateObject("MSForms.DataObject")
    objClipboard.SetText uniqueText
    objClipboard.PutInClipboard
    
    ' 清理临时工作表
    Application.DisplayAlerts = False
    wsTemp.Delete
    Application.DisplayAlerts = True
    
    MsgBox "去重内容已复制到剪贴板", vbInformation
End Sub

代码改进点说明 #

• 不修改源数据：通过创建临时工作表复制源数据，所有去重操作在临时表中完成，原选中区域完全不受影响。
• 稳定的剪贴板操作：替换原代码中不稳定的GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")，改用Office内置的MSForms.DataObject，避免跨对象上下文的稳定性问题。
• 错误校验：增加选中区域的有效性检查，避免无选中区域时出错。

2. 设置Ctrl+E快捷键替换Flash Fill #

在personal.xlsb的ThisWorkbook模块中添加以下代码，每次Excel启动时自动将Ctrl+E绑定到我们的宏，替换默认的Flash Fill功能：

Private Sub Workbook_Open()
    ' ^代表Ctrl键，绑定Ctrl+E到自定义宏
    Application.OnKey "^e", "CopyUniqueValuesToClipboard"
End Sub

注意事项 #

• 如果需要恢复默认的Flash Fill快捷键，可执行以下临时代码：

  Sub RestoreDefaultCtrlE()
      Application.OnKey "^e"
  End Sub
  

• 确保personal.xlsb已启用宏，且设置为信任位置，否则宏无法自动加载。

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