怎样编代码用顺序数字替换上一个数字呢？

chqiang22

怎样编代码用顺序数字替换上一个数字呢？如：'C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\005\[2010申报表.xlsm]客户基本信息'!$C$5中的005按005、006、007一直到1067或更后面呢？
详见附件

chqiang22

忘了说明，005、006是文件夹的名称，按顺序编的。

艾心语

自己录个宏，用EXCEL自带的替换功能，录好宏后，外加一个FOR语句就可以批量替换了

gufengaoyue

CTRL + H
查找范围：公式
再把005换成别的。。

chqiang22

重新做了一个附件，应该更直观一点吧。用查找替换功能的话EXCEL经常死掉，而且数据不是一两个，而是几千个啊。上次做了一整晚累趴下了

zhaogang1960

原帖由 chqiang22 于 2011-3-8 11:28 发表
重新做了一个附件，应该更直观一点吧。用查找替换功能的话EXCEL经常死掉，而且数据不是一两个，而是几千个啊。上次做了一整晚累趴下了

做了一个，但我不知道公式是怎么插入的，总是显示提示更新的对话框，用了Application.AskToUpdateLinks = False也不行，试试看吧
顺便告诉我一下：='D:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\005\[2010申报表.xlsm]客户基本信息'!$C$5是怎么插入到单元格的
Sub Macro1()
    Dim arr, i&, s$
    arr = Range("C5:I" & Range("C65536").End(xlUp).Row).Formula
    For i = 1 To UBound(arr)
        s = "\" & i + 5 & "\"
        For j = 1 To 7
            arr(i, j) = Replace(arr(i, j), "\005\", s)
        Next
    Next
    Application.AskToUpdateLinks = False
    Range("C5:I" & Range("C65536").End(xlUp).Row) = arr
End Sub

chqiang22

：='D:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\005\[2010申报表.xlsm]客户基本信息'!$C$5
就是两张EXCEL同时打开，用=等过的啊

chqiang22

我自己想了一个傻办法，但是还是行不通，不能形成公式啊。哪位大侠能帮我把B21变成公式不？

chqiang22

不要沉下去啊