mshd.net
当前位置:首页 >> 求EXCEL VBA指点,关于自动筛选/高级筛选的结果的... >>

求EXCEL VBA指点,关于自动筛选/高级筛选的结果的...

Sub tt() Cells(1, 1).Select Selection.AutoFilter Field:=1, Criteria1:="5" Range("a2:a100").SpecialCells(xlCellTypeVisible).Select Selection.Delete End Sub 把SpecialCells(xlCellTypeVisible这里前面的range不要把表头写进去 比如我这...

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(...

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

赋值语句会丢失批注; 使用range对象的copy方法。

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

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

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

没图表,那个宏程序要根据你所在列和写筛选语言的。 示例: 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...

Private Sub CommandButton1_Click() Dim tji, tjj For tjj = 6 To 238 If Cells(tjj, 4).Value = "" Then For tji = 16 To 34 If Cells(tji, 5).Value = "" Then GoTo tjifend Range(Cells(5, 1), Cells(tjj, 4)).AdvancedFilter Action:=xlFil...

Excel基础操作的高级筛选完全达到你要求: 高级筛选做法: 假设你数据在A列,A列的列标题为“品名”, 在B1输入A列的列标题 品名 在B2输入 *西瓜* 选中A列数据,点菜单:数据,筛选,高级筛选,列表区域为你的数据区域,如:A1:A100,条件区域选 ...

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