我做了这个VBA宏，基本上在粘贴数字之前将输出范围格式化为文本。当我想要粘贴诸如8/11、23/6、1/3等值时，它非常适合我，而Excel不会将它们解释为日期。

Sub PasteAsText()
' Created by Lars-Erik Sørbotten, 2017-09-17
Call CreateSheetBackup
    
Columns(ActiveCell.Column).NumberFormat = "@"
    
Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard

ActiveCell.PasteSpecial

End Sub

我很想知道这是否也适用于其他人。我一直在寻找一个解决这个问题的方法有一段时间了，但我还没有看到一个快速的VBA解决方案，不包括在输入文本前面插入。该代码以原始形式保留数据。

在Excel 2010中打开一个新工作表。 在“数据”ribbon上单击“从文本中获取外部数据”。 选择您的CSV文件，然后单击“打开”。 单击“下一步”。 取消“Tab”，在“逗号”旁边打勾，然后点击“下一步”。 单击第一列上的任意位置。 按住shift键拖动滑块，直到可以单击最后一列，然后松开shift键。 点击“文本”单选按钮，然后点击“完成”

所有列都将作为文本导入，就像它们在CSV文件中一样。

如果可以更改文件源数据

如果您准备更改原始源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”以表格形式打开。(您可以从“数据类型检测”选项中选择“不检测数据类型”)。

SELECT CONCAT('\'',NOW(),'\''), firstname, lastname 
FROM your_table
INTO OUTFILE 'export.csv' 
FIELDS TERMINATED BY ',' 
ENCLOSED BY '\"' 
LINES TERMINATED BY '\n'

另一种方法:

将要更改的列的格式转换为“Text”。选择要保留的所有单元格，复制。在不取消这些列的情况下，单击“编辑>粘贴特殊> As值”

保存为CSV。请注意，这必须是您对文件所做的最后一件事，因为当您重新打开它时，它将自己格式化为日期，因为单元格格式不能保存在CSV文件中。

2018

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

Excel 2010:

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

Excel office365:(客户端版本)

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

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