從VBA向Excel單元格添加公式

Question

我有一個標簽為my_new_name的工作表，並且想輸入一個公式，在查看了其他堆棧溢出線程后，我想到了以下內容：

Set wsDest = Sheets("my_new_name")
wsDest.Range("J2").Formula = "=RIGHT(K2,2)&" / "&MID(K2,5,2)&" / "&LEFT(K2,4)"
wsDest.Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J")

但是，這不起作用，並且錯誤帶有“類型不匹配”

任何幫助都會很棒

Answer 1

假設您獲得的公式輸出為=RIGHT(K2,2)&"/"&MID(K2,5,2)&"/"&LEFT(K2,4) ，則必須轉義雙引號在您的VBA行中。

wsDest.Range("J2").Formula = "=RIGHT(K2,2)&" / "&MID(K2,5,2)&" / "&LEFT(K2,4)" （拋出類型不匹配）

應該：

wsDest.Range("J2").Formula = "=RIGHT(K2,2)&"" / ""&MID(K2,5,2)&"" / ""&LEFT(K2,4)" （不錯誤）

編輯：此外，根據注釋部分，您需要在此后指定結束行(J2:J####) -其中###是行號。