[求助]识别单个数字 并加上0

gfs57

单元格中有如下字符串，其中包括单个的数字，如何在其左边加上“0”，使其成为后面的样子？  先谢了!

锦江村1组                      锦江村01组

吐鲁番村8组                  吐鲁番村08组

长白山农场9组              长白山农场09组         

[此贴子已经被作者于2007-3-19 18:55:50编辑过]

tomlitomli

在查找/替换中，进行如下替换，

 

D:\Backup\我的文档\未命名.GIF

gfs57

tomlitomli:

你好！谢谢你！

图片看不见！

用函数能解决吗！或是用VBA？

gfs57

对不起，发错板块了！　请版主帮我删除了吧，我已经重发在VBA板块了。

守柔

QUOTE:

以下是引用gfs57在2007-3-19 20:51:18的发言：
对不起，发错板块了！　请版主帮我删除了吧，我已经重发在VBA板块了。

些许小事,不必惊动VBA V大人了.

tangcong

感谢守柔，又让我对通配符的学习有了例子

liujy

向守柔大大学习了！我也知道用查找替换，但折腾了老半天，也替换不出来，这是我只粗读《Word非常接触》一遍就又掉头去学习EXCEL的应有惩罚吧。

菊石泽露

vba应该有替换法，和非替换法，比如根据条件判断，用insertbefore方法等。

欢迎斑竹们给各个vba学学！

其他高手也可以各显神通呀！

sylun

QUOTE:

以下是引用菊石泽露在2007-3-22 10:23:08的发言：

vba应该有替换法，和非替换法，比如根据条件判断，用insertbefore方法等。

欢迎斑竹们给各个vba学学！

其他高手也可以各显神通呀！

刚才试用insertbefore方法练习了一下，如下代码好像可以实现一楼文本的替换，但对有些只有一位的数值（如日期格式或数字后跟空格）的情形并无替换，不知对其中的用法有何限制。

Sub add_zero()
    Dim i As Range
    For Each i In ThisDocument.Content.Words
        If Val(i.Text) > 0 And Len(i.Text) = 1 Then
            i.InsertBefore "0"
        End If
    Next
End Sub

[此贴子已经被作者于2007-3-22 11:23:30编辑过]

菊石泽露

sylun兄，把Words换成Characters就行了。