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

kongfb

doitbest 发表于 2012-2-1 15:39
如果替换量大的话,可以将姓名和武力值做一个列表,通过循环进行成批替换

这个能举个例子吗？ 我有这方面的需求啊

doitbest

请参考附件

kongfb

doitbest 发表于 2012-2-1 15:58
请参考附件

大师  我试了 不好用。。。

doitbest

什么问题,我用正常啊

kongfb

doitbest 发表于 2012-2-1 16:03
什么问题,我用正常啊

第一个程序 正常

第二个程序 我点 没反应 我截个图给你看

kongfb

doitbest 发表于 2012-2-1 16:03
什么问题,我用正常啊

截图

doitbest

替换表中孙悟空是重复值,删除一个

doitbest

以下代码应更加周全
Public Sub replace2()
Dim ar, sht As Worksheet, i%
ar = Sheets(1).[a1].CurrentRegion
For Each sht In ThisWorkbook.Worksheets
    If sht.Index <> 1 Then
        For i = 1 To UBound(ar)
            If Not sht.[a:a].Find(ar(i, 1), , , 1) Is Nothing Then
                Debug.Print sht.Name & sht.[a:a].Find(ar(i, 1), , , 1).Address
               sht.[a:a].Find(ar(i, 1), , , 1).Offset(, 1) = ar(i, 2)
            End If
        Next i
    End If
Next
End Sub

kongfb

doitbest 发表于 2012-2-1 16:28
以下代码应更加周全
Public Sub replace2()
Dim ar, sht As Worksheet, i%

多谢多谢 只要把 替换表放在就前面就好用了   是吧   

doitbest

场景1中有两个孙悟空,造成执行出现问题