如何批量给EXCEL单元格加上单引号？
我现在有几个EXCEL文件，需要将所有的单元格里面的内容前面都加上一个单引号，因为数据量太大（差不多都有三四千行），数据又不太一样，所以不可能去一个个的手动改，有没有什么快捷方法，在线等，希望哪位高手指点，先谢谢了！
其实那个单引号就是表示这个单元格是文本格式的，把日期那一列选中，单元格格式改为文本格式，就出现，具体步骤如下：
材料/工具：Excel2010
1、A列中的数据没有单引号就很难添加到数据库中。
2、然后开始定位一个空白单元格开始给数据添加单引号，这个空白单元格定位的位置跟要添加引号的数据相应即可。
3、然后在编辑栏输入公式便可以开始给数据添加单引号或其他对应符号了
4、公式在英文状态下输入完成后即可回车看到单引号效果了。
5、接着我们用Ctrl键点击选中A1和D1两个单元格并且按Ctrl和C键复制它们。
6、然后鼠标按放在D1单元格右下处下拉便能够对A列的数据进行复制并添加单引号了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-05-29
你可能是想让数值型数字转为文本格式的数字，对吧？
设你的数据在A列.A1开始,在B列B1输入如下公式：
=A1&""
公式往下拉,然后复制B列,在A1点右键,选择性贴粘,值和数字格式,确定,这样也可达到将原A列数据转为文本格式的效果.
设你的数据在A列.A1开始,在B列B1输入如下公式：
=A1&""
公式往下拉,然后复制B列,在A1点右键,选择性贴粘,值和数字格式,确定,这样也可达到将原A列数据转为文本格式的效果.
第2个回答 2010-05-29
工具-宏中的VB编辑器，插入－模块。复制下列程序
Sub test()
Dim r As Range
For Each r In ActiveSheet.UsedRange
r = "'" & r
Next
End Sub
关闭VB编辑器，在任一需要加单引号的工作表上，点工具-宏，找到test,点执行即可。
Sub test()
Dim r As Range
For Each r In ActiveSheet.UsedRange
r = "'" & r
Next
End Sub
关闭VB编辑器，在任一需要加单引号的工作表上，点工具-宏，找到test,点执行即可。
第3个回答 推荐于2017-05-23
设你的数据在A列.A1开始,在B列B1输入如下公式:
=CONCATENATE("'",A1)
说明:然后,双击B1右下角复制点或下拉复制公式. 如果空格不加改为:
=IF(A1="","",CONCATENATE("'",A1))本回答被网友采纳
=CONCATENATE("'",A1)
说明:然后,双击B1右下角复制点或下拉复制公式. 如果空格不加改为:
=IF(A1="","",CONCATENATE("'",A1))本回答被网友采纳
相似回答