VBA格式单元格为常规

Question

我希望将Excel文件格式设置为“常规”，但并非所有单元格都适用（有些是自定义的、百分比等）。

以下是我的代码：

With ActiveSheet.Range("A1").Resize(LineIndex, 1)
    .Value = WorksheetFunction.Transpose(strLine)
    .NumberFormat = "General"
    'DEFINE THE OPERATION FULLY!!!!
    .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
                   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
                   Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
                   Other:=True, OtherChar:="|"
End With

- BKChedlia

Answer 1

如果您想将所有单元格格式设置为常规，可以使用以下内容：

Sub dural()
    ActiveSheet.Cells.NumberFormat = "General"
End Sub

- Gary's Student