Excel在所有單元格的開頭添加一個“（神奇地添加了APOSTROPHE）

Question

With ThisWorkbook.Sheets("WorksheetName").Cells.Range("A1:A1000000")
.Formula = formulavariable
.Value = .Value
End With

當Excel執行.Value = .Value時，它將在所有值的開頭添加一個'。 如果我右鍵單擊並粘貼為值，它將刪除“。 問題是此代碼非常高效，並且在我嘗試刪除時花費不到1秒的時間，這將永遠加載所有單元格。

Answer 1

試試看：

Sub testit()
    formulavariable = "=1+2"
    With ThisWorkbook.Sheets("WorksheetName").Cells.Range("A1:A1000000")
        .Clear
        .Formula = formulavariable
        .Value = .Value
    End With
End Sub

編輯

如果您希望用Null填充單元格，則：

Sub FillWithNulls()
    formulavariable = Chr(61) & Chr(34) & Chr(34)
    With ThisWorkbook.Sheets("WorksheetName").Cells.Range("A1:A1000000")
        .Clear
        .Formula = formulavariable
        .Value = .Value
    End With
End Sub