Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2114|回复: 10

[已解决][求助] 请老师帮助修改宏,谢谢

[复制链接]
发表于 2012-5-29 19:35 | 显示全部楼层 |阅读模式
提示: 作者被禁止或删除 内容自动屏蔽
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-5-29 19:53 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2012-5-29 20:24 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

发表于 2012-5-29 20:33 | 显示全部楼层
xhcyi 发表于 2012-5-29 20:24
将符合条件的数据从汇总表过滤到新汇总表,新汇总表数据从b列开始

看不明白你想做什么?最好说明白操作过程。
不会只是筛选重复值这么简单吧!
回复

使用道具 举报

发表于 2012-5-29 20:36 | 显示全部楼层
有个例子效果就更好了!!
回复

使用道具 举报

发表于 2012-5-29 20:44 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2012-5-30 08:39 编辑

Sub TEST()
Dim x As Range, rng As Range
Sheets(1).Select
For Each x In Range([e1], [e65536].End(3))
    If Application.CountIf([e:e], x.Value) > 1 Then
        If rng Is Nothing Then Set rng = x Else Set rng = Union(rng, x)
        R = x.Row
        Range("A" & R & ":U" & R).Copy Sheets(2).[B65536].End(3)(2)
    End If
Next
If Not rng Is Nothing Then
    rng.EntireRow.Hidden = True
End If
End Sub

评分

参与人数 1 +1 收起 理由
xhcyi + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2012-5-29 20:47 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

发表于 2012-5-29 21:36 | 显示全部楼层
没有附件无法帮到你。
回复

使用道具 举报

发表于 2012-5-29 21:39 | 显示全部楼层
xhcyi 发表于 2012-5-29 20:47
从汇总表筛选重复记录到新汇总表工作表,汇总表重复数据的a-u列过滤在新汇总表b-v列

Sub NHG()
Dim I As Integer, J As Integer
Dim ARR, BRR(), M
ARR = Sheet1.[A1].CurrentRegion
ReDim BRR(1 To UBound(ARR), 1 To UBound(ARR, 2))
For x = 1 To UBound(ARR)
ARR(x, 11) = 0
For Y = 1 To UBound(ARR)
If ARR(x, 5) = ARR(Y, 5) Then
ARR(x, 11) = ARR(x, 11) + 1
End If
Next Y
Next x
For x = 1 To UBound(ARR)
If ARR(x, 11) > 1 Then
M = M + 1
For Y = 1 To UBound(ARR, 2)
BRR(M, Y) = ARR(x, Y)
Next
End If
Next
Sheet2.[B2].Resize(M, UBound(BRR, 2)) = BRR
End Sub

评分

参与人数 1 +1 收起 理由
xhcyi + 1 赞一个!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2012-5-30 22:07 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:32 , Processed in 0.565549 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表