excel - マクロを使用して数式をセルに追加する

Question

Dim dflrow As Integer

    ActiveWorkbook.Sheets("ElecTM").Range("I1048576").Select

    dflrow = Selection.End(xlUp).Row

'        ActiveWorkbook.Sheets("ElecTM").Range("AG" & dflrow & ":" & "AJ" & dflrow).Select

    ActiveWorkbook.Sheets("ElecTM").Range("AG6").Formula = "=CONCATENATE(Year(I6),"w",WeekNum(I6))"

    Selection.FillDown

ここで、5 行目に構文エラーがあるというエラーが表示されます。「.Formula」の代わりに「.value」を試しました。しかし、それは役に立ちませんでした。

Answer 1

に二重引用符がありません"w"

ActiveWorkbook.Sheets("ElecTM").Range("AG6").Formula = _
"=CONCATENATE(Year(I6),""w"",WeekNum(I6))"

間で使用する場合は"、余分にパディングする必要があります"""

編集：疑わしい場合は、マクロを記録してください;）

Answer 2

w は二重引用符で囲む必要があります

ActiveWorkbook.Sheets("ElecTM").Range("AG6").Formula = "=CONCATENATE(Year(I6),""w"",WeekNum(I6))"