VBA：使用DataObj存取剪贴板时如何排除边框格式？

方案一：修改剪贴板存取逻辑，先清除数据边框再存入 #

你当前的代码只读取了剪贴板的纯文本，但Excel复制的内容包含格式信息（包括边框）。要在存取时就去掉边框，可以借助临时工作表处理：

' 先通过 Tools -> References 引用 Microsoft Forms 2.0 Object Library
Dim DataObj As New MSForms.DataObject

Function readClipboardNoBorders() As String
    Dim tempSheet As Worksheet
    Dim clipContent As String
    
    On Error Resume Next
    DataObj.GetFromClipboard
    If Err.Number <> 0 Then
        readClipboardNoBorders = ""
        Exit Function
    End If
    On Error GoTo 0
    
    ' 创建隐藏临时表
    Set tempSheet = ThisWorkbook.Sheets.Add
    tempSheet.Visible = xlSheetHidden
    
    ' 粘贴剪贴板内容到临时表
    tempSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
    
    ' 清除所有边框
    tempSheet.Cells.Borders.LineStyle = xlNone
    
    ' 重新复制处理后的内容到剪贴板
    tempSheet.UsedRange.Copy
    DataObj.GetFromClipboard
    clipContent = DataObj.GetText
    
    ' 清理临时表
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    readClipboardNoBorders = clipContent
End Function

Function copyToClipboardNoBorders(ByRef copyStr As String)
    Dim tempSheet As Worksheet
    
    If copyStr = "" Then Exit Function
    
    ' 创建隐藏临时表
    Set tempSheet = ThisWorkbook.Sheets.Add
    tempSheet.Visible = xlSheetHidden
    
    ' 写入内容并清除边框
    tempSheet.Range("A1").Value = copyStr
    tempSheet.Cells.Borders.LineStyle = xlNone
    
    ' 复制到剪贴板
    tempSheet.UsedRange.Copy
    DataObj.PutInClipboard
    
    ' 清理临时表
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
End Function

方案二：直接控制粘贴行为（无需修改剪贴板） #

如果不想改动剪贴板存取代码，也可以在需要粘贴的位置，直接用你录制的PasteSpecial代码，跳过边框粘贴：

' 替换你的普通粘贴代码为这个
ActiveSheet.Range("要粘贴的单元格位置").PasteSpecial _
    Paste:=xlPasteAllExceptBorders, _
    Operation:=xlNone, _
    SkipBlanks:=False, _
    Transpose:=False

额外提示 #

• 要是找不到Microsoft Forms 2.0 Object Library引用，可以先插入一个UserForm（插入 -> 用户窗体），Excel会自动添加这个引用，之后删掉UserForm就行。
• 方案一用了临时工作表，记得加Application.DisplayAlerts = False避免删除时弹出确认框。

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