[已解决]如何实现批量更改

fengdavid · 发表于 2013-4-9 19:03

如何实现批量更改数据，具体见附件

最佳答案

月排行榜 / 总排行榜

zjdh

2013-4-9 20:57

本帖最后由 zjdh 于 2013-4-9 20:59 编辑

Sub TEST()
For I = 1 To Cells(65536, 1).End(3).Row
Set D = CreateObject("scripting.dictionary")
S = Split(Cells(I, 1), "-")
For J = 0 To UBound(S)
If Not D.exists(S(J)) Then
D(S(J)) = 0
Else
D(S(J)) = D(S(J)) + 1
End If
Next
K = D.KEYS
For J = 0 To UBound(K)
If D(K(J)) <> 0 Then D(K(J)) = D(K(J)) + 1
Next
For L = UBound(S) To 0 Step -1
If D(S(L)) > 0 Then
N = S(L)
S(L) = S(L) & "." & D(S(L))
D(N) = D(N) - 1
End If
Next
Cells(I, 1) = Join(S, "-")
Next
End Sub

复制代码

跳转到最佳答案楼层

1032446692 · 发表于 2013-4-9 19:38

你要用VBA实现吗
2.1-3-2.2-5.1-6-5.2-8-11
6.1-5-6.2-8.1-9-8.2-11
这是你举的例子  为什么8不变成8.1  11不变成11.1  11.2的形式
还有  是不是没有出现重复就不这样变？

fengdavid · 发表于 2013-4-9 19:58

1032446692 发表于 2013-4-9 19:38
你要用VBA实现吗
2.1-3-2.2-5.1-6-5.2-8-11
6.1-5-6.2-8.1-9-8.2-11

出现重复的数字才改变

1032446692 · 发表于 2013-4-9 20:17

fengdavid 发表于 2013-4-9 19:58
出现重复的数字才改变

那你自己在认真看一下你的例子吧反正就那么几个你认真一点不要出错你说第一次出现就在后面加.1但是，你有的没加你又说重复了才加但是有的第一次出现又加了如果你觉得我说的你难以理解你就仔细看一下你的例子我觉得也很难理解

1032446692 · 发表于 2013-4-9 20:37

答案1：2.1-3.1-2.2-5.1-6.1-5.2-8.1-11.1
6.2-5.3-6.3-8.2-9.1-8.3-11.2
答案2：2-3-2.1-5-6-5.1-8-11
6.1-5.2-6.2-8.1-9-8.2-11.1
我认为你要么是第一种答案要么是第二种答案
如果是你实力的那样就没有规律了你就值得用手工修改了

zjdh · 发表于 2013-4-9 20:57

本帖最后由 zjdh 于 2013-4-9 20:59 编辑

Sub TEST()
For I = 1 To Cells(65536, 1).End(3).Row
Set D = CreateObject("scripting.dictionary")
S = Split(Cells(I, 1), "-")
For J = 0 To UBound(S)
If Not D.exists(S(J)) Then
D(S(J)) = 0
Else
D(S(J)) = D(S(J)) + 1
End If
Next
K = D.KEYS
For J = 0 To UBound(K)
If D(K(J)) <> 0 Then D(K(J)) = D(K(J)) + 1
Next
For L = UBound(S) To 0 Step -1
If D(S(L)) > 0 Then
N = S(L)
S(L) = S(L) & "." & D(S(L))
D(N) = D(N) - 1
End If
Next
Cells(I, 1) = Join(S, "-")
Next
End Sub

复制代码

zjdh · 发表于 2013-4-9 21:03

1032446692 发表于 2013-4-9 20:37
答案1：2.1-3.1-2.2-5.1-6.1-5.2-8.1-11.1
6.2-5.3-6.3-8.2-9.1-8.3-11.2
答案2：2-3-2.1-5-6-5.1-8-11

是每一个单元为一组数，出现重复则全部修改，楼主的示例就是这个意思。

zjdh · 发表于 2013-4-9 21:05

批量更改.rar (9.38 KB, 下载次数: 4)

fengdavid · 发表于 2013-4-9 21:44

zjdh老师理解正确，代码也很好，实现了要求。谢谢！

jxncfxsf · 发表于 2013-4-9 21:46

我也弄了一下，看好用不。

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

[已解决]如何实现批量更改

相关帖子