[已解决]关于覆盖原有数据问题

Gy奔跑吧小不点

希望帮忙填加刷新代码，把原先的数据覆盖掉，见附件。劳驾各位老师帮助。谢谢。

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-11-15 18:14

1. Sub Macro13()
   
2. Dim arr, d
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Columns("N:ag").ClearContents
   
5. arr = Range("a1").CurrentRegion
   
6. For i = 1 To UBound(arr)
   
7.     n = 26
   
8.     For j = 1 To UBound(arr, 2)
   
9.         d(arr(i, j)) = d(arr(i, j)) + 1
   
10.     Next
    
11.     For Each a In d.keys
    
12.         If d(a) > 1 Then n = n + 1: Cells(i, n) = a
    
13.     Next
    
14.     d.RemoveAll
    
15. Next
    
16. End Sub

复制代码

前面加一句？不知道是不是这个意思

跳转到最佳答案楼层

grf1973

没看懂要求。

望帝春心

原先的数据是哪些？怎么个覆盖法？

Gy奔跑吧小不点

grf1973 发表于 2016-11-15 13:50
没看懂要求。

就是输出区会残留上次输出的数据，希望把上次数据处理掉后，只保留当前输出的数据。详情见本楼附件内容。谢谢

Gy奔跑吧小不点

望帝春心 发表于 2016-11-15 15:44
原先的数据是哪些？怎么个覆盖法？

就是输出区会残留上次输出的数据，希望把上次数据处理掉后，只保留当前输出的数据。详情见本楼附件内容。谢谢

望帝春心

1. Sub Macro13()
   
2. Dim arr, d
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Columns("N:ag").ClearContents
   
5. arr = Range("a1").CurrentRegion
   
6. For i = 1 To UBound(arr)
   
7.     n = 26
   
8.     For j = 1 To UBound(arr, 2)
   
9.         d(arr(i, j)) = d(arr(i, j)) + 1
   
10.     Next
    
11.     For Each a In d.keys
    
12.         If d(a) > 1 Then n = n + 1: Cells(i, n) = a
    
13.     Next
    
14.     d.RemoveAll
    
15. Next
    
16. End Sub

复制代码

前面加一句？不知道是不是这个意思

Gy奔跑吧小不点

望帝春心 发表于 2016-11-15 18:14
前面加一句？不知道是不是这个意思

就是这一句，解决了我的问题，再次谢谢。

望帝春心

Gy奔跑吧小不点 发表于 2016-11-15 18:47
就是这一句，解决了我的问题，再次谢谢。

不客气，相互学习～