如何將雙引號放入VBA中的字符串中?我希望通過包含雙引號的VBA在單元格中插入一個if語句。這是我的代碼:Worksheets("Sheet1").Range("A1").Value = "=IF(Sheet1!B1=0,"",Sheet1!B1)"由于雙引號,我在插入字符串時有問題。如何處理雙引號?
3 回答

搖曳的薔薇
TA貢獻1793條經驗 獲得超6個贊
Worksheets("Sheet1").Range("A1").Formula = "IF(Sheet1!A1=0,"""",Sheet1!A1)"
Worksheets("Sheet1").Range("A1").Formula = "IF(Sheet1!A1=0," & CHR(34) & CHR(34) & ",Sheet1!A1)"

翻翻過去那場雪
TA貢獻2065條經驗 獲得超14個贊
Sub RepairFormula()Dim FormulaString As StringFormulaString = "=MID(CELL(~filename~,$A$1),FIND(~[~,CELL(~filename~,$A$1))+1,FIND(~]~, CELL(~filename~,$A$1))-FIND(~[~,CELL(~filename~,$A$1))-1)"FormulaString = Replace(FormulaString, Chr(126), Chr(34)) 'this replaces every instance of the tilde with a double quote.Range("WorkbookFileName").Formula = FormulaString
添加回答
舉報
0/150
提交
取消