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

kongfb · 发表于 2012-2-1 14:42

我想让所有场景下孙悟空的武力值统一为90 唐僧的武力值为100 可以通过编写宏的形式来完成吗？请高手提示有几种方法
详见附件

求助.rar (3.43 KB, 下载次数: 11)

该贴已经同步到 kongfb的微博

海神号2011 · 发表于 2012-2-1 15:00

确实好难呀,不知道怎么弄

kongfb · 发表于 2012-2-1 15:03

海神号2011 发表于 2012-2-1 15:00
确实好难呀,不知道怎么弄

不会吧 VBA 应该很好解决啊那个语句我忘了

海神号2011 · 发表于 2012-2-1 15:09

是VBA语句吗?

doitbest · 发表于 2012-2-1 15:19

出现提示后,输入"孙悟空90" 这种格式,一次替换一个人名,没有一次全部替换,主要考虑通用性
Public Sub replace1()
Dim nam$, nam1, nam2, sht As Worksheet
nam = InputBox("请输入姓名和武力值")
nam1 = Left(nam, Evaluate("lenb(""" & nam & """)") - Len(nam))
nam2 = Mid(nam, Len(nam1) + 1, 100)
For Each sht In Worksheets
If Not sht.[a:a].Find(nam1, , , 1) Is Nothing Then
sht.[a:a].Find(nam1, , , 1).Offset(, 1) = nam2
End If
Next
End Sub

awnuwfkd · 发表于 2012-2-1 15:20

大牛没出马，我来试试
参考附件

kongfb · 发表于 2012-2-1 15:34

doitbest 发表于 2012-2-1 15:19
出现提示后,输入"孙悟空90" 这种格式,一次替换一个人名,没有一次全部替换,主要考虑通用性
Public Sub repl ...

如果有100个需要替换100次吗？是这样吗

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

awnuwfkd 发表于 2012-2-1 15:20
大牛没出马，我来试试
参考附件

呵呵这个好用如果替换多了直接在下面写语句就行了

kongfb · 发表于 2012-2-1 15:38

doitbest 发表于 2012-2-1 15:19
出现提示后,输入"孙悟空90" 这种格式,一次替换一个人名,没有一次全部替换,主要考虑通用性
Public Sub repl ...

这个我试了真狠啊！！！！！多谢指点

doitbest · 发表于 2012-2-1 15:39

如果替换量大的话,可以将姓名和武力值做一个列表,通过循环进行成批替换

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

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

最新热点 /1