使用Excel VBA将公式插入单元格

Question

我正在尝试遵循此示例 ，但是它不起作用。 offset会引起问题吗？

这是我所拥有的：

Sub parse_dates_flurry()

    Dim col_diff As Integer '  how many columns away the unparsed date
    col_diff = -20

    Dim num_of_char As Integer
    num_of_char = 10

    Dim sheet_name_flurry As String
    sheet_name_flurry = "flurry_an_output.csv"

' get rows used in sheet
    Dim rows1 As Long
    rows1 = Get_Rows_Generic(sheet_name_flurry, 1)

'   find last column and fill with formula
    Dim formula_parse As String
    formula_parse = "=LEFT(RC[col_dif],num_of_char)"  ' 

    Dim starting_cell_range As Range
    Dim n As Long
    With Worksheets(sheet_name_flurry)
        Set starting_cell_range = .Range(find_last_column(sheet_name_flurry))
        starting_cell_range.Offset(0, 1) = "Parsed date" 

        For n = 1 To (rows1 - 1)
        '   getting error here:
            starting_cell_range.Offset(n, 1).Formula = formula_parse
        Next n   
    End With
End Sub

Answer 1

formula_parse = "=LEFT(RC[col_dif],num_of_char)"

应该是这样的：

formula_parse = "=LEFT(RC[" & col_dif & "]," & num_of_char & ")"

请记住， formula_parse是正确的字符串形式。
但是要将变量的值连接到它，您需要像上面那样进行操作。
并且由于您正在以R1C1表示法传递公式，因此请更改以下行：

starting_cell_range.Offset(n, 1).Formula = formula_parse

对此：

starting_cell_range.Offset(n, 1).FormulaR1C1 = formula_parse