根据双条件提取不重复值填写到另一工作表

psunui · 发表于 2013-12-1 15:18

一个订单表，因为要汇总总的订数，想按客户和品名把不重复的订单项筛选出来填写到另一张表（客户和品名都相同为重复）。
因为有其它要求，所以不方便用数据透视表，具体情况在附件。

新建 Microsoft Excel 工作表.rar (3.82 KB, 下载次数: 67)

windimi007 · 发表于 2013-12-1 15:30

请测试！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then
Dim d As Object
Dim ar
Dim i As Long, j As Long
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.Cells(1, 1).CurrentRegion
For i = 1 To UBound(ar)
sr = ar(i, 1) & vbTab & ar(i, 2)
If Not d.exists(sr) Then
j = j + 1
d.Add sr, ""
ar(j, 1) = ar(i, 1)
ar(j, 2) = ar(i, 2)
End If
Next i
With Sheet2.Cells(1, 1)
.Resize(Rows.Count, 2).Clear
With .Resize(j, 2)
.Value = ar
.Borders.LineStyle = xlContinuous
End With
End With
End If
End Sub

复制代码

psunui · 发表于 2013-12-1 15:55

windimi007 发表于 2013-12-1 15:30
请测试！

写入表二的时候能加个区域限制吗，比如说只在第二行到第十行，现在运行的时候会把标题行给改了，谢谢

windimi007 · 发表于 2013-12-1 16:31

psunui 发表于 2013-12-1 15:55
写入表二的时候能加个区域限制吗，比如说只在第二行到第十行，现在运行的时候会把标题行给改了，谢谢

这个意思吗？

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then
Dim d As Object
Dim ar
Dim i As Long, j As Long
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.Cells(1, 1).CurrentRegion
For i = 2 To UBound(ar)
sr = ar(i, 1) & vbTab & ar(i, 2)
If Not d.exists(sr) Then
j = j + 1
d.Add sr, ""
ar(j, 1) = ar(i, 1)
ar(j, 2) = ar(i, 2)
End If
Next i
With Sheet2.Cells(2, 1)
.Resize(Rows.Count - 1, 2).Clear
With .Resize(j, 2)
.Value = ar
.Borders.LineStyle = xlContinuous
End With
End With
End If
End Sub

复制代码

zhouzhongchi · 发表于 2013-12-1 16:41

a2=INDEX(表一!A:A,SMALL(IF(MMULT(1^TRANSPOSE(ROW(表一!$A$2:$A$16)),N(MATCH(表一!$A$2:$A$16&表一!$B$2:$B$16,表一!$A$2:$A$16&表一!$B$2:$B$16,)=TRANSPOSE(ROW(表一!$A$2:$A$16))-1))>=1,TRANSPOSE(ROW(表一!$A$2:$A$16)),4^8),ROW(A1)))&""

psunui · 发表于 2013-12-1 16:48

windimi007 发表于 2013-12-1 16:31
这个意思吗？

这样就可以了，非常感谢

sakwang · 发表于 2016-11-3 11:16

windimi007 发表于 2013-12-1 16:31
这个意思吗？

我有个难题想请教可以加我qq 帮忙看看吗？

18767125751 · 发表于 2017-2-20 13:01

windimi007 发表于 2013-12-1 16:31
这个意思吗？

老师，能不能帮我看下，http://club.excelhome.net/thread-1329226-1-1.html

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

[求助] 根据双条件提取不重复值填写到另一工作表