我做了这个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解决方案，不包括在输入文本前面插入。该代码以原始形式保留数据。

如果在字段的开头放置一个倒置逗号，它将被解释为文本。

例子: 25/12/2008变成了25/12/2008

您还可以在导入时选择字段类型。

我有一个类似的问题，这是解决方案，帮助我无需编辑csv文件内容:

如果你可以灵活地将文件命名为“。csv”以外的东西，你可以用“。txt”扩展名来命名它，比如“Myfile.txt”或“Myfile.csv.txt”。然后，当你在Excel中打开它(不是通过拖放，而是使用文件->打开或最近使用的文件列表)，Excel将为你提供一个“文本导入向导”。

在向导的第一页中，为文件类型选择“Delimited”。

在向导的第二页中，选择“，”作为分隔符，如果用引号括起值，还可以选择文本限定符

在第三页，分别选择每一列，并为每一列分配类型为“文本”而不是“常规”，以防止Excel弄乱你的数据。

希望这能帮助你或有类似问题的人!

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

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

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

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

如果可以更改文件源数据

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