尝试插入带有Excel VBA公式的列

Question

I am trying to insert a column into my data table and insert a formula into the cells. This code has worked for me on this project except for this formula:

     With Data

            .Columns("M:M").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("M1").FormulaR1C1 = "PROD-DESC"
            .Range("M2").FormulaR1C1 = "=CONCATENATE(K2," - ",L2)"
            .Range("M2:M" & .Cells(Rows.Count, "M").End(xlUp).Row).FillDown     


 End With

When I run the code. I get a mismatch error and it highlights the line with the concatenate formula.

Any help would be greatly appreciated. I am really struggling to figure out why this is not working.

Thanks,

G

Answer 1

以下代码将起作用（在另一个字符串中时，您需要将双引号引起来的双引号-您还需要删除R1C1 ）：

.Range("M2").Formula = "=CONCATENATE(K2,"" - "",L2)"