格式不会自动更改

Question

我想将格式从日期更改为数字，并且它没有改变。我必须在每个单元格上单击两次以更改它。

我找到了一种解决方案，即文本到列可在此处使用。不幸的是，记录的代码无法正常工作。

     Worksheets("Data for LN").Range("i2:i" & datarange).Select
     Selection.NumberFormat = "0.00"
     Selection.TextToColumns Destination:=Range("I2"), DataType:=xlDelimited, _
          TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
          Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
          :=Array(1, 1), TrailingMinusNumbers:=True

有什么想法可以改变它吗？