删除重复行，保留最后一行

YEJINHAI · 发表于 2011-11-1 20:02

版主：你好！
Sub Macro1()
Dim arr, t, d As Object, i&, j&, m&
Set d = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr)
      d(arr(i, 1) & arr(i, 2) & arr(i, 3) & arr(i, 4)) = i
Next
t = d.items
For i = 0 To d.Count - 1
      m = i + 2
      For j = 1 To 6
         arr(m, j) = arr(t(i), j)
      Next
Next
ActiveSheet.UsedRange.ClearContents
Range("A1").Resize(m, 6) = arr
End Sub
能否把这段宏改造成真正的自定义列参与对比，
要求弹出窗口，自己输入列。

zhaogang1960 · 发表于 2011-11-1 21:00

YEJINHAI 发表于 2011-11-1 20:02
版主：你好！
Sub Macro1()
Dim arr, t, d As Object, i&, j&, m&

1、2、3、4l列，要选择哪一个？
请上传附件说明

YEJINHAI · 发表于 2011-11-2 00:08

版主：好！
我的意思是说，如果我能自己自定义的输入对比列，例如我输入要参与的对比列为：A列、B列、C列、D列。它能跳出一个对话框，让我能输入A 、B、C、D
列，参与对比。其他列能保留。
如果参与的对比列 A列、B列、C列、D列、E列、F列。它能跳出一个对话框，让我能输入A 、B、C、D、E、F列，参与对比，其他列能保留。

如果参与的对比列 A列、 C列、E列、F列。它能跳出一个对话框，让我能输入A 、C、E、F列，参与对比，其他列能保留。
这样灵活性更强。

谢谢

gongqiulin · 发表于 2012-1-1 14:31

真的！一个字“快”。

weist123 · 发表于 2012-3-5 13:34

找了半天，发现版主的程序最好。

blackttea1 · 发表于 2022-1-24 16:57

学习啦，谢谢！

mkvs123 · 发表于 2022-3-30 11:12

好东西，学习一下

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

[求助] 删除重复行，保留最后一行