使用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