计算显示错误，是因为计算式太长吗？怎么解决？

Option Explicit
'
Sub abc()
　Dim i
　For i = 1 To [a1].End(xlDown).Row
　　Cells(i, "b") = "=" & Cells(i, "a").Value
　Next
End Sub

手动化的话可以选择，B1="a"&A1下拉，数据粘成值，然后把a替换换成=

Option Explicit
'
Sub abc()
　Dim a, i, j, k, p, t, sum
　a = [a1].CurrentRegion.Resize(, 1).Value
　For i = 1 To UBound(a)
　　Do While InStr(a(i, 1), "(")
　　　For j = 1 To Len(a(i, 1))
　　　　If Mid(a(i, 1), j, 1) = "(" Then p = j
　　　　If Mid(a(i, 1), j, 1) = ")" Then
　　　　　t = Mid(a(i, 1), p, j - p + 1)
　　　　　a(i, 1) = Left(a(i, 1), p - 1) & Evaluate(t) & Mid(a(i, 1), j + 1)
　　　　　Exit For
　　　　End If
　　　Next
　　Loop
　　t = Split(a(i, 1), "+")
　　For j = 0 To UBound(t)
　　　sum = sum + Evaluate(t(j))
　　Next
　　a(i, 1) = sum: sum = 0
　Next
　[b1].Resize(UBound(a)) = a
End Sub