Excel VBA插入公式

Question

我正在尝试使用vba使用像这样的动态列引用在单元格中插入公式：

Fred = ConvertToLetter(ActiveCell.Column)
Bob = "=DATE(LEFT(" + Fred + "2,4),MID(" + Fred + "2,5,2),MID(" + Fred + "2,7,2))"
ActiveCell.FormulaR1C1 = Bob    

Function ConvertToLetter(iCol As Integer) As String
    Dim iAlpha As Integer
    Dim iRemainder As Integer
    iAlpha = Int(iCol / 27)
    iRemainder = iCol - (iAlpha * 26)
    If iAlpha > 0 Then
        ConvertToLetter = Chr(iAlpha + 64)
    End If
    If iRemainder > 0 Then
        ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
    End If
End Function

但是在运行时，该公式以单元格周围的单引号结尾，并且该公式无法像下面这样工作：

=DATE(LEFT('AY2',4),MID('AY2',5,2),MID('AY2',7,2))

如何停止添加单引号以使公式正常工作？

谢谢

Answer 1

这是导致问题的FormulaR1C1属性。

改为这样做：

ActiveCell.Formula = Bob

顺便说一句，您可以使用以下方法来代替ConvertToLetter（）函数：

Fred = Split(ActiveCell.Address, "$")(1)

Answer 2

您可以改为使用此''（两个单撇号）。

Answer 3

要使用R1C1公式，请使用：

ActiveCell.FormulaR1C1 = "=DATE(LEFT(R2C,4),MID(R2C,5,2),MID(R2C,7,2))"

公式中的R2表示第2行。公式中的C表示公式所在的列。

查看R1C1表示法：
R [-1]表示此行减1。
C [1]表示此列加1。
R1表示第1行
C1表示第1列
R表示此行。
C表示此列。

因此，在单元格B2中-R1C1表示单元格A1。
R1C [-1]表示单元格A1
RC1表示单元格A2。
RC表示单元格B2。

希望很清楚。 :)

或者您可以像Excel Hero所说的那样使用ActiveCell.Formula = Bob。