excel运用宏实现文本转换超级无敌慢，能帮忙看看代码问题吗？

549884822

如下代码，我运用宏实现了公式转换为文本，但是发现点一下之后，文本转换的非常非常慢，经常要几分钟才能实现文本转换。有没有大神可以帮忙看看这个代码问题出在哪里了呢？
Sub ba()
ActiveSheet.Unprotect "123456"
ar = Range([a1], ActiveSheet.UsedRange)
For i = 1 To UBound(ar)
    For j = 1 To UBound(ar, 2)
        If Len(ar(i, j)) Then
            If j = 2 Or j = 6 Then
                Cells(i, j) = "'" & ar(i, j)
            ElseIf j > 10 And j < 14 Then
                Cells(i, j) = Format(ar(i, j), "0%")
            Else
                Cells(i, j) = ar(i, j)
            End If
        End If
    Next
Next
Columns("a:o").AutoFit
ActiveSheet.Protect "123456"
End Sub

zpy2

开头加
Application.Calculation = xlManual
结束Application.Calculation = xlAutomatic


接vba写入值吧。代码看上去很美，

549884822

zpy2 发表于 2020-11-25 06:37
开头加
Application.Calculation = xlManual
结束Application.Calculation = xlAutomatic

非常感谢，加了之后，速度变快了很多，大神呀！膜拜

游帅帅

把cells，用数组代替，会快很多