问题根源分析 #

你碰到的Excel崩溃问题，很大概率和**未被使用的冗余变量myRange**有关。虽然只是连续两次赋值的代码，但VBA里这类悬空的对象引用容易引发内存泄漏，积累到一定程度就会触发Excel的稳定性问题。

看你给出的代码片段：

Set myRange = ActiveSheet.Range("1:1") 
Set myRange = ActiveSheet.Range("A:A")

这里两次给myRange赋值，但后续完全没用到这个变量，它就成了内存里的无效对象引用，这很可能就是崩溃的隐形导火索。

具体修复步骤 #

• 彻底移除冗余的myRange变量：直接删掉所有和myRange相关的代码（包括变量声明和两次赋值语句），从根源上清除这个无效的对象引用，这是解决崩溃的核心第一步。
• 优化numCols和numRows的赋值逻辑：你提到要修改这两个变量的赋值，推荐使用更稳定可靠的写法（补全你未写完的numRows代码）：

  numCols = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
  numRows = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  

  这种写法能精准定位数据区域的最后一列和最后一行，避免空行空列导致的逻辑错误，同时减少不必要的对象引用，进一步提升代码稳定性。

额外稳定性建议 #

• 尽量避免直接用ActiveSheet，最好指定具体工作表（比如ThisWorkbook.Worksheets("数据Sheet")），减少因工作表切换引发的意外问题。
• 后续写VBA时，若用到对象变量，记得在使用完后用Set 变量名 = Nothing手动释放内存，养成良好的内存管理习惯。

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