Excel VBA处理剪贴板数据粘贴失败（1004错误）求助

方法一：直接操作数组（推荐，无需剪贴板） #

不用折腾剪贴板，直接把源数据读到数组里处理，再写入目标区域，完全避开格式兼容问题，稳定性更高。

Sub CopyDataWithoutLastColumn()
    Dim srcWs As Worksheet, destWs As Worksheet
    Dim srcRange As Range, destRange As Range
    Dim dataArr As Variant, newDataArr As Variant
    Dim i As Long, j As Long
    
    ' 替换成你的源工作表和目标工作表名称
    Set srcWs = ThisWorkbook.Worksheets("源数据")
    Set destWs = ThisWorkbook.Worksheets("目标数据")
    
    ' 获取源数据的连续区域（从A1开始，自动识别非空范围）
    Set srcRange = srcWs.Range("A1").CurrentRegion
    dataArr = srcRange.Value
    
    ' 如果只有一行或一列，直接结束（不需要处理）
    If UBound(dataArr, 1) = 1 Or UBound(dataArr, 2) = 1 Then Exit Sub
    
    ' 创建新数组，列数比源数据少1
    ReDim newDataArr(1 To UBound(dataArr, 1), 1 To UBound(dataArr, 2) - 1)
    
    ' 遍历复制数据，跳过最后一列
    For i = 1 To UBound(dataArr, 1)
        For j = 1 To UBound(dataArr, 2) - 1
            newDataArr(i, j) = dataArr(i, j)
        Next j
    Next i
    
    ' 把处理好的数组写入目标区域（从A1开始，自动匹配大小）
    Set destRange = destWs.Range("A1").Resize(UBound(newDataArr, 1), UBound(newDataArr, 2))
    destRange.Value = newDataArr
End Sub

使用时只需修改工作表名称和起始单元格，运行后直接完成数据写入，不用手动复制粘贴。

方法二：正确格式化剪贴板文本 #

如果一定要用剪贴板操作，必须严格按照Excel识别的格式重构内容：行与行用vbCrLf分隔，列与列用vbTab分隔，不能有多余的分隔符。

Sub ModifyClipboardData()
    Dim clipText As String, rowsArr As Variant, newRowsArr As Variant
    Dim i As Long, colsArr As Variant
    
    ' 读取剪贴板里的文本内容
    clipText = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
    
    ' 按行拆分文本
    rowsArr = Split(clipText, vbCrLf)
    
    ' 初始化新行数组
    ReDim newRowsArr(0 To UBound(rowsArr) - 1)
    
    ' 逐行处理，移除最后一列
    For i = 0 To UBound(rowsArr) - 1
        If rowsArr(i) <> "" Then ' 跳过空行
            colsArr = Split(rowsArr(i), vbTab)
            If UBound(colsArr) >= 1 Then ' 至少两列才需要移除最后一列
                ReDim Preserve colsArr(0 To UBound(colsArr) - 1)
                newRowsArr(i) = Join(colsArr, vbTab)
            Else
                newRowsArr(i) = rowsArr(i) ' 单列直接保留
            End If
        End If
    Next i
    
    ' 重新组合成符合Excel格式的文本
    clipText = Join(newRowsArr, vbCrLf)
    
    ' 将处理后的文本写回剪贴板
    CreateObject("htmlfile").ParentWindow.ClipboardData.SetData "text", clipText
    
    ' 粘贴到当前选中的单元格区域（仅粘贴值）
    ActiveSheet.PasteSpecial xlPasteValues
End Sub

注意：运行前要先复制源数据到剪贴板，再执行这个宏，最后选中目标单元格粘贴即可。用htmlfile对象操作剪贴板比API更简单可靠，还能避免权限问题。

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