删除相同并保留最后一条记录

SCWYZJ

求助：麻烦老师帮我看看，怎样用vba代码删除名称规格重复的数据行，并保留最后一条数据！（（详见附件）谢谢！

duquancai

last  group by                。。。。。。。。。。。。。。。。。。。。。

不知道为什么

如图

不知道为什么

代码

SCWYZJ

不知道为什么 老师：你好，我试下可以，也许是我的意思没表达清楚，我是想在原数据原位置删除重复数据，不是提取到别处，麻烦你再给我修改下代码好吗？谢谢

w8899

SCWYZJ 发表于 2018-8-31 19:15
不知道为什么 老师：你好，我试下可以，也许是我的意思没表达清楚，我是想在原数据原位置删除重复数据，不 ...

用筛选不就行了

zyspecial

用removeduplicate

Kaohsing

'只对本表有效！

1. Sub kao()
   
2.     On Error Resume Next
   
3.     Dim tt$, s$, ss$, tt$
   
4.     Dim js  As Object
   
5.     Dim y As Object
   
6.     Dim i%
   
7.     Set js = CreateObject("ScriptControl")
   
8.     js.Language = "JScript"
   
9.     s = "var a={b:'0' };"
   
10.     js.addcode s
    
11.     arr = Range("B:H")
    
12.     For i = 3 To UBound(arr)
    
13.         tt = arr(i, 1)
    
14.         If Len(tt) > 0 Then
    
15.             If Len(js.eval("a['" & tt & "']")) = 0 Then
    
16.                 s = "a['" & tt & "']=" & i & ";"
    
17.                 js.addcode s
    
18.             Else
    
19.                 ss = js.eval("a['" & tt & "']") & IIf(ss = "", "", "," & ss)
    
20.                 s = "a['" & tt & "']=" & i & ";"
    
21.                 js.addcode s
    
22.             End If
    
23.         End If
    
24.     Next
    
25.     Application.ScreenUpdating = False
    
26.     y = Split(ss, ",")
    
27.     For Each k In y
    
28.         Rows(k).Delete
    
29.     Next
    
30.     Application.ScreenUpdating = True
    
31.     MsgBox "job is okey!"
    
32. End Sub

复制代码

SCWYZJ

你的代码不行啊！