邮件合并删除指定字符的问题

xmnhljh · 发表于 2007-5-25 17:58

因excel中的数据超过15位，所以每个数据前都有一个单引号“'”，邮件合并后如何能把这个单引号删除呢。

我试在域代码后加\##但会出现跟excel中一样的情况就是后几位自动变成0。

因为数据量大，而且经常是工作所以不想在excel中操作。看看大家有什么好办法，在线等

sylun · 发表于 2007-5-25 18:36

输入数据前，一般在excel表格中设置单元格数字格式为文本就可解决（不用输入单引号）；即使是按常规格式，加上半角单引号“'”后正常邮件合并也没有带上这个单引号。楼主最好能提供excel文档看看

xmnhljh · 发表于 2007-5-25 19:54

excel是由系统生成的，所以“'”也是由系统加上去的，所以在合并后还会显示出来。现在就假如说要把合并过来的数据第一位不要能实现吗？请给出的方法一定要从word中解决。

mN5ni9uu.rar (1.49 KB, 下载次数: 11)

[此贴子已经被作者于2007-5-25 20:12:29编辑过]

sylun · 发表于 2007-5-25 21:33

QUOTE:

以下是引用xmnhljh在2007-5-25 19:54:18的发言：
excel是由系统生成的，所以“'”也是由系统加上去的，所以在合并后还会显示出来。现在就假如说要把合并过来的数据第一位不要能实现吗？请给出的方法一定要从word中解决。

楼主所说的“系统”不是excel，而是指其他专门软件吧？看附件excel文档，数据好像不是手工输入的。
感觉上，如果不从excel入手处理，用常规方法似乎难以去掉这个单引号。

xmnhljh · 发表于 2007-5-25 22:36

感谢sylun,看来只能多动动手了。

守柔 · 发表于 2007-5-26 05:25

QUOTE:

以下是引用xmnhljh在2007-5-25 22:36:23的发言：
感谢sylun,看来只能多动动手了。

在EXCEL工作薄中运行以下代码即可（运行前先选定需要转换的单元格区域）

Option Explicit
Sub Example()
'将所选单元格区域数据转换为文本格式
    Dim myRange As Range, i As Range
    '定义一个RANGE对象为所选单元格区域
    Set myRange = Selection.Cells
    '设置为文本格式
    myRange.NumberFormat = "@"
    Application.ScreenUpdating = False
    For Each i In myRange
        '重新赋值
        i.Value = i.Value
    Next
    Application.ScreenUpdating = True
End Sub

xmnhljh · 发表于 2007-5-26 13:37

虽然不是我想要的结果但还是感谢版主，因为想要实现上述功能后，是要给一些没有任何计算机操作能力的人使用。所以一定要实现在WORD中解决该问题。难道真的就再没有别的什么办法了吗？请大家帮着给试试

守柔 · 发表于 2007-5-26 16:37

QUOTE:

以下是引用xmnhljh在2007-5-26 13:37:44的发言：
虽然不是我想要的结果但还是感谢版主，因为想要实现上述功能后，是要给一些没有任何计算机操作能力的人使用。所以一定要实现在WORD中解决该问题。难道真的就再没有别的什么办法了吗？请大家帮着给试试

多说无益，所谓没有任何计算操作能力的人，我们都是从这儿起步的，学习是必须的，提高工作效率是意识问题。

积极地解决这个问题，有三种方法，两种从数据源入手处理最简单，用宏即我上面的方式。二是在EXCEL中以“'”分隔符分列，分列时设置其数据格式为文本格式，然后通过公式如：“=C2&""”的方式还原为文本数据。

三是在WORD中处理，如果不用宏，就需要使用查找与替换，我想，对于没有任何操作能力的人来说，我还是从略了。

孰优孰劣，不言自明。

xmnhljh · 发表于 2007-5-26 20:40

好办法，受到启发。用第三种方法，利用宏将合并后的文档里的符号都替换了。现在就试

		自动登录	找回密码
密码			免费注册