嘿，我来帮你把这段VBA代码和Application.Calculation属性讲明白，保证你一看就懂～

首先得搞清楚Application.Calculation到底管啥：
它是用来控制Excel的计算模式的，主要有三种常用值：

• xlCalculationAutomatic：默认的自动计算模式，只要你修改了单元格内容，或者公式引用的单元格变了，Excel会立刻自动重新计算所有相关公式。
• xlCalculationManual：手动计算模式，Excel不会自动触发任何计算，必须你手动按F9，或者用代码调用计算命令才会更新公式结果。
• xlCalculationSemiautomatic：半自动模式，只自动计算数据透视表，其他公式还是得手动触发。

接下来看你贴的这段代码，它的核心作用是临时切换手动计算，提升宏的运行效率，同时保留用户原本的计算设置：

Sub example()

Dim CalculationMode As Integer

CalculationMode = Application.Calculation

Application.Calculation = xlCalculationManual

Do While
'Generic Do While statement
Loop

Application.Calculation = CalculationMode

End Sub

一步步拆解代码逻辑：

1. Dim CalculationMode As Integer：声明一个变量，用来备份当前Excel的计算模式。
2. CalculationMode = Application.Calculation：把用户当前正在使用的计算模式（比如默认的自动计算）存到变量里——这步是“留后路”，避免宏运行完破坏用户的原有设置。
3. Application.Calculation = xlCalculationManual：切换到手动计算模式。这么做的原因很简单：如果你的Do While循环里有大量修改单元格、触发公式的操作，自动计算会在每次循环时都重新计算所有相关公式，循环次数多的话，宏会慢到让人崩溃。手动模式下，Excel不会自动触发计算，能大幅提升宏的运行速度。
4. 执行Do While循环：不管循环里做了啥操作（比如批量修改单元格值），Excel都不会自动更新公式，全程高效运行。
5. Application.Calculation = CalculationMode：循环结束后，把计算模式恢复到之前备份的状态——这是专业开发者的必备习惯，相当于“用完工具归位”，不会让用户之后用Excel时发现公式不自动更新了，避免造成不必要的困惑。

额外提一句：如果循环里某一步确实需要用到最新的计算结果，你也可以在循环里手动加Application.Calculate（计算所有公式）或者Range("A1:C10").Calculate（只计算指定区域），这样既能保证运行效率，又能拿到需要的结果。

备注：内容来源于stack exchange，提问作者ChartProblems