用于创建公式的 Excel 宏工作正常。复制和粘贴公式的宏离开#Values

Question

我编写了一个用户定义函数来获取单元格的颜色。

Function GetFillColor(Rng As Range) As Long
    GetFillColor = Rng.Interior.ColorIndex
End Function

该功能有效。

我编写了一个宏来在电子表格上使用该函数:

    Sub Macro5()

     Macro5 Macro                 
        Windows("KobeCurrent2.xlsm").Activate
        Sheets("Direct").Select
        Range("AP2").Select
        ActiveCell.FormulaR1C1 = "=NUMBERVALUE(GetFillColor(RC[-26]))"
        Range("AP2").Select
        Dim LR As Long
     LR = ActiveSheet.UsedRange.Rows.Count
    Range("AP2").Select
    Range("AP2").AutoFill Destination:=Range("AP2:AP" & LR)

End Sub

单元格 AP2 显示单元格颜色的值。
AP 列中的其余单元格显示#Value!
直到我双击#Value!，然后它变为单元格颜色的值。

我尝试将单元格乘以 1，使用数据文本到列，但是当通过 excel 宏执行时，我仍然得到#Value!它仍然需要双击来解决。

任何帮助，将不胜感激。谢谢。

Answer 1

我测试了你的脚本，但我得到了#NAME 错误，所以我修改它以将值放在 AP2 等中，而不是公式中。这可能不是您想要的，但很容易修改。希望这有助于或让您朝着正确的方向前进。

Sub Macro5() ' ' Macro5 Macro '

Dim LR As Long
LR = ActiveSheet.UsedRange.Rows.Count


Windows("KobeCurrent2.xlsm").Activate

For x = 2 To LR Step 1

    Range("AP" & x).Value = Range("A" & x).Interior.ColorIndex

Next x
 ' I left these in here for reference.
 'ActiveCell.FormulaR1C1 = "=GetFillColor(RC[-15])"    
 'Range("P2").AutoFill Destination:=Range("P2:P" & LR)
End Sub