相同单元格右侧单元格值统一的问题

kongfb · 发表于 2012-2-1 16:55

doitbest 发表于 2012-2-1 16:46
场景1中有两个孙悟空,造成执行出现问题

最后一个问题：如果武力值和姓名中间还有两列我想做别的用怎么改啊？

doitbest · 发表于 2012-2-1 16:59

替换表格式不用变
改这句 sht.[a:a].Find(ar(i, 1), , , 1).Offset(, 3) = ar(i, 2)

kongfb · 发表于 2012-2-1 17:25

doitbest 发表于 2012-2-1 16:59
替换表格式不用变
改这句 sht.[a:a].Find(ar(i, 1), , , 1).Offset(, 3) = ar(i, 2)

十分有效，我把姓名放在D列 3个 a:a 换成 d:d 一样成功！！！十分感谢

kongfb · 发表于 2012-2-1 17:27

doitbest 发表于 2012-2-1 16:59
替换表格式不用变
改这句 sht.[a:a].Find(ar(i, 1), , , 1).Offset(, 3) = ar(i, 2)

doitbest 优秀会员当之无愧啊！！！！{:soso_e179:}{:soso_e179:}{:soso_e179:}

kongfb · 发表于 2012-2-1 21:37

本帖最后由 kongfb 于 2012-2-1 21:37 编辑

doitbest 发表于 2012-2-1 16:28
以下代码应更加周全
Public Sub replace2()
Dim ar, sht As Worksheet, i%
遇到多个相同值时程序使用无效

doitbest · 发表于 2012-2-2 14:52

一表多个相同值,合理吗?

kongfb · 发表于 2012-2-2 15:48

本帖最后由 kongfb 于 2012-2-2 15:50 编辑

doitbest 发表于 2012-2-2 14:52
一表多个相同值,合理吗?

恩实际应用的时候会有这方面的需求，比如我想用1个sheet 描述多个场景的时候。

doitbest · 发表于 2012-2-2 16:00

请参考附件

kongfb · 发表于 2012-2-3 08:51

doitbest 发表于 2012-2-2 16:00
请参考附件

这个好用满足了需要谢谢！！！

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

[求助] 相同单元格右侧单元格值统一的问题