Excel宏复制数据时触发Run-time error '7'内存不足问题求助

我们基于客户数据库生成报表，再通过Excel宏将这些报表数据复用至其他报表，该流程稳定运行2年，上周六开始触发以下错误：

Run-time error '7':
Out of memory when copying data from another workbook

经排查，原因是某客户在一条数据前加了三个等号（===）作为前缀，Excel将其识别为公式而非普通文本，进而引发内存不足——哪怕只保留该行数据，错误依然触发。

当前使用的核心代码如下：

With ActiveWorkbook.Sheets(1).UsedRange
    RawDataMR.Range("A1").Resize(.Rows.Count, .Columns.Count) = .Value
End With

已尝试将计算模式设为手动、关闭对应工作表的计算功能，但均无效。希望找到阻止Excel将此类内容识别为公式的方法；另一个思路是检查单元格内容并剔除非字母数字字符，但数据量通常有7000行，担心处理时仍出问题。

方法1：先设置目标区域为文本格式再赋值 #

直接修改赋值逻辑，先把目标单元格区域设置为文本格式，再写入数据，从根源上阻止Excel解析公式：

With ActiveWorkbook.Sheets(1).UsedRange
    ' 先将目标区域设置为文本格式
    RawDataMR.Range("A1").Resize(.Rows.Count, .Columns.Count).NumberFormat = "@"
    ' 再写入数据
    RawDataMR.Range("A1").Resize(.Rows.Count, .Columns.Count) = .Value
End With

方法2：针对异常单元格添加单引号前缀 #

如果方法1无效，可遍历源数据区域，给以===开头的内容添加单引号（Excel中单引号开头会强制识别为文本）。针对7000行数据，仅处理异常行的话效率不会受太大影响：

Dim sourceRng As Range
Dim cell As Range

Set sourceRng = ActiveWorkbook.Sheets(1).UsedRange

' 先设置目标区域为文本格式
RawDataMR.Range("A1").Resize(sourceRng.Rows.Count, sourceRng.Columns.Count).NumberFormat = "@"

' 遍历处理异常单元格
For Each cell In sourceRng
    If Len(cell.Value) >= 3 And Left(cell.Value, 3) = "===" Then
        RawDataMR.Range(cell.Address).Value = "'" & cell.Value
    Else
        RawDataMR.Range(cell.Address).Value = cell.Value
    End If
Next cell

方法3：使用粘贴特殊功能以文本格式复制 #

利用Excel的PasteSpecial功能，直接以文本/数值格式复制数据，彻底绕过公式解析逻辑，且无需遍历单元格：

ActiveWorkbook.Sheets(1).UsedRange.Copy
RawDataMR.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

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