将公式添加到VBA代码的单元格中
我试图通过VBA代码在一个特定的单元格中input一个公式。
这是我的公式:
=CONCATENATE("SK-",IF(A5+1<1000,IF(A5+1>=10,CONCATENATE("0",A5+1),CONCATENATE("00",A5+1)),A5+1),"-",RIGHT(J8,LEN(J8)-2))
我想将公式添加到单元格中,但执行代码时出现错误1004。
我正在尝试这个:
Sheets("Sheet1").Select Range("J6").Formula = "=CONCATENATE('SK-',IF(A5+1<1000,IF(A5+1>=10,CONCATENATE('0',A5+1),CONCATENATE('00',A5+1)),A5+1),'-',RIGHT(J8,LEN(J8)-2))"
任何问题发表评论!
Sheets("Sheet1").Range("J6").Formula = "=CONCATENATE(""SK-"",IF(A5+1<1000,IF(A5+1>=10,CONCATENATE(""0"",A5+1),CONCATENATE(""00"",A5+1)),A5+1),""-"",RIGHT(J8,LEN(J8)-2))"