VBA总出错，雇主催得急，Excel却卡成PPT。

昨天改了一个周报宏，底本两分钟能跑完，戒指半途停在第37行不动了。我盯着屏幕看了三分钟，鼠标点也点不动，连Ctrl+Break皆失灵。临了发现是上个月共事删了一张表，宏还硬往那张内外写数据——代码没报错，Excel我方暗暗“躺平”了。

这不是第一次。上上周导客户数据，用`End(xlUp)`找临了一滑，戒指对方发来的表格里A列第500行空着，第1024行才填了新记载。宏奏凯当整张表惟有500行，背面24行全漏了，财务查对时才发现少了一笔应收款。

其后我试了`Find("*", SearchDirection:=xlPrevious)`，又加了`SpecialCells(xlCellTypeLastCell)`双保障，还写了一滑`Debug.Print rng.Address`，每次启动完皆扫一眼输出窗。现时就算数据乱成一团，我也能一眼看出规模对辩认。

数组这东西，真不是“学了就快”，而是你得先关掉自动重算，再清掉景象栏，还得防着空区域。有回我奏凯`Range("A1:Z100000").Value`读数据，戒指内部有个N/A公式，所有数组读出来全是特别值，背面`UBound`皆崩了。其后加了行判断：`If WorksheetFunction.CountA(rng) = 0 Then Exit Sub`，终于不弹红框了。

夙昔写错处理，就一句`On Error Resume Next`，看着代码跑收场，其实中间跳过三步，戒指表头没写、规律没套、备份根柢没存。现时每个子历程来源皆写：`If Not ws Is Nothing And ws.Visible = xlSheetVisible Then`，不是为了炫技，是怕哪天谁把表荫藏了，宏还在哪里傻跑。

上周作念了个清洗车间宏：先`Find`定位，再`ClearContents`清现实（不是`Delete`，乐鱼体育删列会崩援用），接着`TextToColumns`分地址，再`RemoveDuplicates`去重，临了`CountA`验一遍清洗完还有莫得脏数据。每步干完，皆在第一滑最右边写个符号，“分列完成”“去重完成”。别东说念主接办一看就知说念卡在哪。

周报活水线是我最近用得最顺的。原始数据读进数组，内存里按部门加总，毋庸刷新屏幕；戒指组好后一次性贴到新表，再调`Columns.AutoFit`和`FormatConditions.Add`标红至极值；临了自动归档、发邮件。所有历程我泡了杯咖啡，转头就看到邮箱已发送奏效，景象栏写着“已备份至D:\周报\20260214_周报_完成”。

考题里问“为什么数组快”，谜底不是“因为内存快”，是Excel和VBA通讯一次要8毫秒，写10万次单位格等于800秒——不是代码慢，是它在等。问`Find`为啥设`LookIn:=xlValues`，是因为不设的话，它可能去匹配你写的批注笔墨，而不是单位格里的数字。问为什么一定要收复`ScreenUpdating`，是因为关了它不收复，下次别东说念主点个筛选框，Excel界面就透彻冻住，连任务管束器皆救不转头。

现时我写宏前，先问我方三句：这数据从哪来？鸿沟有莫得东说念主动过？如若崩了，会不会把别东说念主正在用的表锁死？答不上来，就先别点启动。

上个月我把一个老宏重写了五遍，每一遍皆删掉一滑“聪敏”的代码，换成一句笨但稳的判断。现时它跑得比夙昔慢2秒，但再也不需要我守着了。

今天中午测试完一个新清洗模块，没看屏幕，去楼下买了个烤肠。转头的本事，Excel如故把戒指表生成好了，自动定名，自动归档，连邮件草稿皆填好了收件东说念主和标题。

我点了发送。

然后关了Excel。

• 乐鱼体育官网
• 不过
• Excel
• 13个
• 妙手