嗨，我也有同样的问题，

我写这个vbscipt来创建另一个CSV文件。新的CSV文件将在每个字段的字体中有一个空格，因此excel将把它理解为文本。

所以你用下面的代码创建了一个。vbs文件(例如Modify_CSV.vbs)，保存并关闭它。将原始文件拖放到vbscript文件中。它将在相同的位置创建一个文件名为“SPACE_ADDED”的新文件。

Set objArgs = WScript.Arguments

Set objFso = createobject("scripting.filesystemobject")

dim objTextFile
dim arrStr ' an array to hold the text content
dim sLine  ' holding text to write to new file

'Looping through all dropped file
For t = 0 to objArgs.Count - 1
    ' Input Path
    inPath = objFso.GetFile(wscript.arguments.item(t))

    ' OutPut Path
    outPath = replace(inPath, objFso.GetFileName(inPath), left(objFso.GetFileName(inPath), InStrRev(objFso.GetFileName(inPath),".") - 1) & "_SPACE_ADDED.csv")

    ' Read the file
    set objTextFile = objFso.OpenTextFile(inPath)


    'Now Creating the file can overwrite exiting file
    set aNewFile = objFso.CreateTextFile(outPath, True) 
    aNewFile.Close  

    'Open the file to appending data
    set aNewFile = objFso.OpenTextFile(outPath, 8) '2=Open for writing 8 for appending

    ' Reading data and writing it to new file
    Do while NOT objTextFile.AtEndOfStream
        arrStr = split(objTextFile.ReadLine,",")

        sLine = ""  'Clear previous data

        For i=lbound(arrStr) to ubound(arrStr)
            sLine = sLine + " " + arrStr(i) + ","
        Next

        'Writing data to new file
        aNewFile.WriteLine left(sLine, len(sLine)-1) 'Get rid of that extra comma from the loop


    Loop

    'Closing new file
    aNewFile.Close  

Next ' This is for next file

set aNewFile=nothing
set objFso = nothing
set objArgs = nothing

在微软Office 2016版本中，这仍然是一个问题，这让我们这些研究基因名称的人感到不安，如MARC1、MARCH1、SEPT1等。 我发现最实用的解决方案是在R中生成一个“。csv”文件，然后将与Excel用户打开/共享:

以文本(记事本)形式打开CSV文件 复制它(ctrl+a, ctrl+c)。 粘贴到一个新的excel表格中-它将全部粘贴在一列作为长文本字符串。 选择/选择此列。 转到Data-“Text to columns…”，在打开的窗口中选择“delimited”(下一步)。检查“逗号”被标记(标记它将显示数据与下面列的分离)(下一步)，在这个窗口中，您可以选择您想要的列并将其标记为文本(而不是通用)(完成)。

HTH

None of the solutions offered here is a good solution. It may work for individual cases, but only if you're in control of the final display. Take my example: my work produces list of products they sell to retail. This is in CSV format and contain part-codes, some of them start with zero's, set by manufacturers (not under our control). Take away the leading zeroes and you may actually match another product. Retail customers want the list in CSV format because of back-end processing programs, that are also out of our control and different per customer, so we cannot change the format of the CSV files. No prefixed'=', nor added tabs. The data in the raw CSV files is correct; it's when customers open those files in Excel the problems start. And many customers are not really computer savvy. They can just about open and save an email attachment. We are thinking of providing the data in two slightly different formats: one as Excel Friendly (using the options suggested above by adding a TAB, the other one as the 'master'. But this may be wishful thinking as some customers will not understand why we need to do this. Meanwhile we continue to keep explaining why they sometimes see 'wrong' data in their spreadsheets. Until Microsoft makes a proper change I see no proper resolution to this, as long as one has no control over how end-users use the files.

如果可以更改文件源数据

如果您准备更改原始源CSV文件，另一种选择是更改数据中的“分隔符”，因此如果您的数据是“4/11”(或4-11)，Excel将其转换为4/11/2021(英国或11-4-2021美国)，那么将“/”或“-”字符更改为其他字符将阻止不想要的Excel日期转换。选项包括:

波浪号(~) +(“+”) 下划线(“_”) 双破折号(“-”) En-dash (Alt 150) Em-dash (Alt 151) (其他角色!)

注意:如果文件要在其他地方使用，则移动到Unicode或其他非ascii/ansi字符可能会使问题复杂化。

因此，'4-11'转换为'4~11'与波浪号将不会被视为日期!

对于大型CSV文件，这没有额外的开销(即:额外的引号/空格/制表符/公式结构)，只在文件直接打开时工作(即:双击CSV打开)，并避免将列预先格式化为文本或“导入”CSV文件为文本。

如果需要，在记事本(或类似工具)中的搜索/替换可以轻松地转换为/从替代分隔符。

导入原始数据

在新版本的Excel中，您可以导入数据(在其他答案中概述)。 在较旧版本的Excel中，您可以安装“Power Query”插件。该工具还可以导入csv而不进行转换。选择:Power Query选项卡/来自文件/来自文本- csv，然后“Load”以表格形式打开。(您可以从“数据类型检测”选项中选择“不检测数据类型”)。

2018

唯一适合我的解决方案(也没有修改CSV)。

Excel 2010:

创建新工作簿 数据>从文本>选择您的CSV文件 在弹出框中选择“Delimited”单选按钮，然后点击“Next >” 分隔符复选框:只勾选“逗号”，取消勾选其他选项，然后单击“下一步>” 在“数据预览”中，滚动到最右，然后按住shift并单击最后一列(这将选中所有列)。现在在“列数据格式”中选择单选按钮“文本”，然后单击“完成”。

Excel office365:(客户端版本)

创建新工作簿 数据>从文本/CSV >选择您的CSV文件 数据类型检测>不检测

注意:Excel office365 (web版本)，当我写这篇文章时，你将无法做到这一点。

最简单的解决方案 我今天才想出来的。

用Word打开 用连字符替换所有连字符 保存并关闭 在Excel中打开

一旦你完成编辑，你可以再次在Word中打开它，再次用连字符替换破折号。