excel中单元格带引号问题

来源:互联网 发布:吃黑米必知6大禁忌 编辑:程序博客网 时间:2024/06/16 10:40

现象:

excel中某个单元格拷出结果:

单元格:
select * from dual
where 1<>1;拷出到文本结果:

"select * from dual
where 1<>1;"

原因:

excel中一个单元格的内容带着换行符,复制出来的时候默认在前后加了引号.

去掉引号思路:

因为存在换行,所以excel带了引号,采用一种方式去掉换行符即可.
网上查找的很多方法都是采用替换,替换是输入按住Alt+小键盘的10为空格.因为笔记本没有小键盘,采用NumLk后仍不能输入Alt+10.

下面采用vb脚本实现.
Sub replaceChr10()
    For Each c In UsedRange
        Cells(c.Row, c.Column).Value = Replace(c, Chr(10), "")
    Next c
End Sub

默认的菜单栏是没有vb脚本输入框的.
文件->选项->自定义功能区->开发工具(选中)->确定,操作后即可在菜单栏看到"开发工具"菜单.
打开Visual Basic脚本输入以上脚本运行.


扩展:交叉引用 Sheet1.UsedRange ,Sheet1.Cells

0 0