Excel 如何解决'；内存不足'；我的超链接宏出错？

我找到了一个宏，用于从列a中获取值，并将它们添加到工作簿中所有工作表的超链接末尾。我在论坛上做了一些挖掘，弗兰肯斯坦编写了以下代码，但经过几个月的使用，它现在给了我一个“内存不足”的错误：

---

我算出了，该范围内的一个单元格被格式化为“文本”，因此宏一直粘贴到该单元格中，直到达到限制。我将单元格重新格式化为“常规”，解决了这个问题

---

谢谢你的帮助

哪一行抛出错误？添加一行，如

Debug.Print ws.Name，rBig.Address（）

，然后查看是否有任何范围大于预期。还要检查您是否没有可能触发的工作表事件过程。

For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    Dim r As Range, s As String, DQ As String
    DQ = Chr(34)
    Dim rBig As Range
    s = "http://somelink.html?" 
    Dim N As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
     Set rBig = Range("A2:A" & N + 1)
      For Each r In rBig
        v = r.Value
        r.Formula = "=HYPERLINK(" & DQ & s & v & DQ & "," & DQ & v & DQ & ")"
    Next r
   Next
  starting_ws.Activate 
End sub