Dim rule As String
Dim FindRowNumber As Long
rule = Cells(ActiveCell.Row, 2).Value
Set FindRow = Worksheets("rules").Range("A:A").Find(What:=rule, LookIn:=xlValues)
FindRowNumber = FindRow.Row
Cells(ActiveCell.Row, 3).FormulaLocal = Worksheets("rule").Cells(FindRowNumber, 2).Value
1条答案
按热度按时间bweufnob1#
我用VBA解决了这个问题：
这在我的Excel 64位中有效。但是在另一台装有Excel 2016 32位的计算机上，我在FormulaLocal行上收到了运行时错误1004。
有没有人知道为什么这在64位excel中有效，而在32位中无效？