Sub DivideByTenThousand(sourceRange As Range)
Application.ScreenUpdating = False ' 禁用屏幕刷新
Application.Calculation = xlCalculationManual ' 禁用自动计算
Dim inputData As Variant
Dim outputRange As Range
Dim i As Long, j As Long
' 一次性读取原始数据到数组
inputData = sourceRange.Value
' 设置输出区域（源区域右侧一列）
Set outputRange = sourceRange.Offset(0, 1)
' 处理数据数组
For i = LBound(inputData, 1) To UBound(inputData, 1)
For j = LBound(inputData, 2) To UBound(inputData, 2)
If IsNumeric(inputData(i, j)) Then
inputData(i, j) = Round(inputData(i, j) / 10000, 2)
Else
inputData(i, j) = 0
End If
Next j
Next i
' 一次性写入结果
outputRange.Value = inputData
' 恢复Excel设置
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

因为接下来要对结果数值进行调整所以不能用公式

只有一列那个j循环就取消吧，直接把j换成1

估计是其他自定义公式重算，明明没有引用单元格
在外面调用时设置禁止刷新试试

把你现在的除法改为乘法运算，速度可以提高几倍

把刷新相关的那几行去掉。另外，提醒下vba的round不是四舍五入

看起来程序代码已经最优了，1秒也不是很久，如果成千上万的数据那就正常了