用VBA只要重复值,最好是有注释，谢谢

风和日月 · 发表于 2011-8-30 14:56

老师们，现在论坛上基本上是求不重复值，想请教你们做个只有重复值的宏，谢谢

mjzxlmg · 发表于 2011-8-30 15:11

无表无真像

xinjiana · 发表于 2011-8-30 15:21

无表无真相,楼上错别字

风和日月 · 发表于 2011-8-30 15:30

mjzxlmg 发表于 2011-8-30 15:11
无表无真像

老师重传了附件，请给帮助

风和日月 · 发表于 2011-8-30 15:31

xinjiana 发表于 2011-8-30 15:21
无表无真相,楼上错别字

老师重传了附件，请给帮助好吗

蓝桥玄霜 · 发表于 2011-8-30 16:06

Sub yy()
Dim d, k, t, Arr, i&
Set d = CreateObject("Scripting.Dictionary")
Sheet3.Activate
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
d(Arr(i, 1)) = d(Arr(i, 1)) & i & ","
Next
k = d.keys
t = d.items: n = 1
Cells(1, 8).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, 1, 0)
For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1)
If InStr(t(i), ",") Then
aa = Split(t(i), ",")
For j = 0 To UBound(aa)
n = n + 1
Cells(n, 8).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, aa(j), 0)
Next
End If
Next
End Sub

复制代码

风和日月 · 发表于 2011-8-31 07:25

蓝桥玄霜发表于 2011-8-30 16:06

蓝桥老师谢谢您的回复
这是不是多栏式金额分列的代码，因刚入门不是很懂，能否给个注释

toad13 · 发表于 2011-9-3 22:08

按照你的附件做的，看看是不是你想要的结果。还有降序排列的问题我没做到vba里，因为你两个表的单元格式不同，不知道你想要的是那种日期格式。按降序排列直接在表格里设置就行了，没有必要做到vba里，省的表格格式更改还得改vba。

风和日月 · 发表于 2011-9-4 08:07

toad13 发表于 2011-9-3 22:08
按照你的附件做的，看看是不是你想要的结果。还有降序排列的问题我没做到vba里，因为你两个表的单元格式不同 ...

求助，用VBA只要重复值,最好是有注释，谢谢
1、当表1，单元格A1发生变化时，表2的单元格B2同时发生变化，A1用了数据有效性
即：sheet1中的a1=cl026时
sheet2中的b2=cl026.等等
2、当表2，单元格B2发生变化时，就根据表2中B2条件进行筛选。
3、筛选的值反映在表2的A5及以下区域，并按第5列进行排序。
4、数据来源表是表3。sheet3
谢谢回答，老师第3条问题没解决

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

[求助] 用VBA只要重复值,最好是有注释，谢谢