VBA练习

[复制链接]

oyzjo

发表于 2012-5-31 11:49 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

Sub CopyFilterResult()Worksheets("sheet2").Columns("A:H").ClearContentsWorksheets("sheet1").Select With Worksheets("Sheet1") If .FilterMode Then '如果处于筛选模式Range("A:H").Copy End If End With Worksheets("Sheet2").Select Range("a1").Select ActiveSheet.Paste End Sub

使用道具举报

返回列表

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

GMT+8, 2024-6-18 05:25 , Processed in 1.114411 second(s), 7 queries , Gzip On, Yac On.

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