你遇到的这个问题其实是Excel VBA处理超长文本数据源时的一个典型坑——当数据源里存在900字符的长文本行时，直接传递Range对象给透视表缓存的SourceData参数会触发内部类型转换故障，更换方法又会因为参数兼容问题报错。下面给你拆解原因和最优解法：

问题复盘 #

你的初始代码在短文本或宏录制场景下正常运行，但遇到长文本时出现两种明确错误：

• 把.Create改成.Add时，在Version参数处弹出Compile error: Named argument not found——这是因为PivotCaches.Add是旧版方法，根本不支持Version这个命名参数
• 用.Create时出现Type Mismatch——核心原因是Excel无法正确将包含超长文本的Range对象转换为透视表缓存所需的数据源格式，导致类型不匹配

有效解决方案 #

你已经发现的用字符串形式的单元格引用代替Range对象的方法是最直接有效的，这里整理成更规范的代码示例，同时补充细节：

Sub CreatePivotForLongTextData()
    Dim pivotCache As PivotCache
    Dim pivotTable As PivotTable
    Dim sourceRef As String
    Dim destRange As Range
    
    ' 用A1或R1C1格式的字符串指定数据源（两种格式都可用）
    sourceRef = "Sheet1!C4:G10" ' 或者用你测试有效的R1C1格式："Sheet1!R4C3:R10C7"
    ' 指定透视表的存放起始位置
    Set destRange = Sheets("Sheet2").Range("Q2")
    
    ' 创建透视表缓存，使用字符串数据源避免类型转换问题
    Set pivotCache = ActiveWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=sourceRef, _
        Version:=xlPivotTableVersion14)
    
    ' 基于缓存创建透视表
    Set pivotTable = pivotCache.CreatePivotTable( _
        TableDestination:=destRange, _
        TableName:="My_Pivot_Table", _
        DefaultVersion:=xlPivotTableVersion14)
    
    ' 可选：添加透视表字段（根据你的需求调整）
    With pivotTable
        ' 示例：把"类别"字段设为行字段
        If .PivotFields("类别").Orientation <> xlRowField Then
            .PivotFields("类别").Orientation = xlRowField
        End If
        ' 示例：把"数值"字段设为值字段
        .AddDataField .PivotFields("数值"), "汇总值", xlSum
    End With
End Sub

为什么这个方法管用？ #

直接传递Range对象时，VBA需要把Range的内容转换为透视表缓存能识别的格式，但超长文本会干扰这个转换过程；而使用字符串形式的单元格引用，Excel会直接解析这个引用去读取数据源，绕开了VBA层面的类型转换，自然就能正确处理长文本内容了。

另外提醒下：PivotCaches.Add方法已经被逐步淘汰，建议始终使用PivotCaches.Create（兼容Excel 2010及以后版本），配合字符串数据源即可避开这类问题。

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