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

chqiang22 · 发表于 2011-3-8 11:08

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

chqiang22 · 发表于 2011-3-8 11:10

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

艾心语 · 发表于 2011-3-8 11:20

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

gufengaoyue · 发表于 2011-3-8 11:21

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

chqiang22 · 发表于 2011-3-8 11:28

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

zhaogang1960 · 发表于 2011-3-8 11:39

原帖由 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 · 发表于 2011-3-8 11:47

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

chqiang22 · 发表于 2011-3-8 13:22

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

chqiang22 · 发表于 2011-3-8 16:51

不要沉下去啊

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

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