Excel添加一个“到我的所有细胞的开始（APOSTROPHE被神奇地添加）

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

当Excel的.Value = .Value它添加到所有值的开始。 如果我右键单击并粘贴为值，它将删除'。 问题是这个代码是非常有效的，当我尝试删除'它需要永久加载所有的单元格时花费less于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