如何使在 32 位 Excel 2016 上编写的宏在 64 位 Excel 2016 上运行

Question

一个宏最初是在 64 位 excel 2016 版本（来自 Office 365）上创建的，但我一直在我的 32 位 2016 版本（来自 Office 365）中使用它。该宏在我的 32 位计算机上完美运行。但是，我为其工作的人使用的是 Excel 2016 的 64 位版本，他们说它一直在为他们崩溃，但它并不一致，一直在不同的地方崩溃，甚至偶尔崩溃运行正确。该代码不包含任何声明语句或 longs，所以我不确定为什么会发生这种情况或如何处理。任何有关如何解决此问题或问题所在的帮助将不胜感激。谢谢你。下面包含已崩溃的代码副本。

Sub Formulas()

Dim rows As String

rows = CStr(Range("Sheet1!C31").Value)

Range("Sheet2!M2:M" & rows).Formula = "=((F2*1000)-(Sheet1!$C*(COS(2*PI()*(Sheet1!$C/360)))))*-1"
Range("Sheet2!N2:N" & rows).Formula = "=IF(G2<0,0,((G2+Sheet1!$C+Sheet1!$C)*Sheet1!$C))"
Range("Sheet2!O2:O" & rows).Formula = "=M2+N2"
Range("Sheet2!P2:P" & rows).Formula = "=O2/Sheet1!$C"
Range("Sheet2!Q2:Q" & rows).Formula = "=IF(OR(P2>(Sheet1!$C),P2<(Sheet1!$C)),1,0)"
Range("Sheet2!R2:R" & rows).Formula = "=IF(H2>0,1,0)"
Range("Sheet2!S2:S" & rows).Formula = "=IF(AND(Q2=1),(R2=1)*1,0)"
Range("Sheet2!B17").Formula = "=1-(SUM(S:S)/SUM(R:R))"
Range("Sheet1!C28") = Range("Sheet2!B17")

'Do While Not IsEmpty(ActiveCell.Value)
'     Range("Sheet2!M" & CStr(ActiveCell.Row)).EntireRow.Delete
'Loop


End Sub

我对 vba 和宏还很陌生，所以如果有人能指出代码的哪些方面在 64 位中不兼容，甚至建议如何修复它，我将非常感激。谢谢。

Answer 1

代码最终没问题。我们必须按照此处 "Registry Information" 部分下的说明进行注册表破解：https://support.microsoft.com/en-us/help/3085435/august-8-2017-update-for-excel-2016-kb3085435

如何使在 32 位 Excel 2016 上编写的宏在 64 位 Excel 2016 上运行

How to make Macro written on 32 bit Excel 2016 work on 64 bit Excel 2016

vba

excel

32bit-64bit

excel-2016