当前位置：首页 → 问答吧 → 用函数做运算excel太慢，哪位VBA厉害帮忙写个高级筛选+录制宏

用函数做运算excel太慢，哪位VBA厉害帮忙写个高级筛选+录制宏

时间：2011-08-04

来源：互联网

附件

附件1.rar(20.66 KB)

2011-8-4 08:22, 下载次数: 25

作者: libyailyw 发布时间: 2011-08-04

Sub Macro2()
'
' Macro2 Macro
' 宏由微软用户录制，时间: 2011-8-4
'

'
Range("Q4:Q106").Select
ActiveWindow.SmallScroll Down:=-129
Range("Q4:Q106").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"S4"), Unique:=True
End Sub

作者: ctp_119 发布时间: 2011-08-04

详细说明要求，可以全部用vba完成，不懂公式。

作者: dsmch 发布时间: 2011-08-04

By.rar (23.94 KB)

作者: 白云2011 发布时间: 2011-08-04

看的我有点累。基本看懂需求。就是普通透视表的需求。做透视表吧。打代码你自己会改不？

[ 本帖最后由 panan123_0 于 2011-8-4 09:29 编辑 ]

作者: panan123_0 发布时间: 2011-08-04

引用:

原帖由 panan123_0 于 2011-8-4 09:18 发表
看的我有点累。基本看懂需求。就是普通透视表的需求。做透视表吧。打代码你自己会改不？

但是数据量太大了，有几万个，最好能做一个上次那样的高级筛选+录制宏

因为我还有很多数据判断要跟这个表格运算后的结果做公式连接，如果做透视表就不太好写公式了。

[ 本帖最后由 libyailyw 于 2011-8-4 09:39 编辑 ]

作者: libyailyw 发布时间: 2011-08-04

引用:

原帖由 ctp_119 于 2011-8-4 08:50 发表
Sub Macro2()
'
' Macro2 Macro
' 宏由微软用户录制，时间: 2011-8-4
'

'
Range("Q4:Q106").Select
ActiveWindow.SmallScroll Down:=-129
Range("Q4:Q106").AdvancedFilter Action:=xlFilte ...

大侠，能解释下吗？如果我S列到AB列都要做筛选的话，要怎么改代码呢？

作者: libyailyw 发布时间: 2011-08-04

引用:

原帖由 libyailyw 于 2011-8-4 09:34 发表

但是数据量太大了，有几万个，最好能做一个上次那样的高级筛选+录制宏

因为我还有很多数据判断要跟这个表格运算后的结果做公式连接，如果做透视表就不太好写公式了。

透视表的数字是可以用公式连接引用的还可以动态呢。只是很少有人用。

作者: panan123_0 发布时间: 2011-08-04

0秒.rar (20.34 KB)

作者: 白云2011 发布时间: 2011-08-04

引用:

原帖由 dsmch 于 2011-8-4 08:50 发表
详细说明要求，可以全部用vba完成，不懂公式。

我要根据B-M列的数据来做统计，需要如下步骤：
1.将D列的工单号转化成Q列的这种格式
2.根据Q列的工单号，选取不重复项保存在R列（如果有2个以上的重复工单号，则只保留1个）
3.在F列中选取与S3相同项
4.在Q列选取与R4相同项
5.在K列找到与机长姓名相对应的行
6.在H列找到前三项所对应的值并加总，保存在S4.如果无机长姓名的工序，则将前两项选取的所有姓名所对应的值加总。
备注：3-6项需要可以横向、纵向扩展，也就是说从U列往后都可以做这样的筛选

这样VBA可以实现吗？