学习Excel技术，关注微信公众号：excelperfect
标签：VBA这个示例很简单，主要是给有兴趣学习VBA的朋友提供研究代码的素材，当然如果有应用场景，那正好适用。如下图1所示，左侧的数据区域中存在很多重复值，现在要给相同的值添加序号，但每组相同值的序号都要从1开始编号，如图中右侧所示。图1代码很简单，如下：Sub AddNumber() Dim strOldValue As String Dim rngCell As Range Dim rngData As Range Dim varSearch As Variant Dim i As Long Dim j As Long Set rngData = ActiveSheet.Range("B2:B9") varSearch = Array("白鹤滩", "三峡") For j = LBound(varSearch) To UBound(varSearch) i = 1 For Each rngCell In rngData strOldValue = rngCell.Value rngCell.Replace What:=varSearch(j), Replacement:=varSearch(j) & i If strOldValue rngCell.Value Then i = i + 1 Next rngCell Next jEnd Sub上述代码直接在原数
………………………………
