mshd.net
当前位置:首页 >> ExCEl怎么用vBA进行高级筛选? >>

ExCEl怎么用vBA进行高级筛选?

上图 或者发样表 joy.008@163.com 写清要求 感觉不难

worksheet_change事件中输入以下代码: Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, Range("C5")) Is Nothing And Target.Count = 1 And Target "" ThenRows.Hidden = False For i = 8 To Cells(...

Sub 宏1()'' 宏1 宏'' Range("A1:E21").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "B23:F24"), CopyToRange:=Range("G1:K1"), Unique:=FalseEnd Sub

Sub 查找()On Error Resume NextDim icount%, arr, I%, SR, arr1(), n%, s$Range("L2:Q1000").ClearContentsicount = Range("A65536").End(xlUp).Rows = InputBox("请输入要查询的关键字:" & Chr(10) & "工号/姓名/年龄/籍贯/身份证号/职务", ...

没有不带颜色的选项,可以接下来增加一个语句,对结果区域清除格式: Sheets("唯一值").Range("B2").CurrentRegion.ClearFormats

没图表,那个宏程序要根据你所在列和写筛选语言的。 示例: Dim i, a, j, x As Integer Dim w As String Sheets("rework").Select Cells.Clear Sheets("sun").Select x = InputBox("请输入你想查询的工号", "查询表格") For i = 2 To 8 If Cells...

说实在的,还真没怎么看明白你要求的输出格式。 给你一段VBA代码,你试下效果,再参照着进行修改吧。 这段代码,要在“源数据”所在的工作簿运行。 Private Sub DataProc() Dim objWbNew As Workbook Dim objShNew As Worksheet Dim objShSrc As W...

1、单元格B4到Jx(x是变量,代码运行时是几就是几) 2、[k1:k2]就是单元格k1到k2所有的单元格

按ALT+F11,打开VBE编辑器,插入——模块,然后复制粘贴下面的代码,按F5键运行。 Sub 多个条件筛选() Range("A2:C65536").ClearContents Sheets("表一").Range("A1:G16").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("E1:F3"),...

使用循环嵌套即可 如: do until 条件 for each rng in cells if 条件1 and 条件2 and 条件3 then 语句体 end if next loop

网站首页 | 网站地图
All rights reserved Powered by www.mshd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com