精华内容
下载资源
问答
  • VBA 高级筛选

    2019-01-04 22:20:00
    http://www.geren-jianli.com/n19719c34.aspx http://m.vccoo.com/v/4aej07_2 AdvancedFilter函数介绍 转载于:https://www.cnblogs.com/onelikeone/p/10222831.html

     

    http://www.geren-jianli.com/n19719c34.aspx

    http://m.vccoo.com/v/4aej07_2

     

    AdvancedFilter 函数介绍

     

    转载于:https://www.cnblogs.com/onelikeone/p/10222831.html

    展开全文
  • 细说自动筛选和高级筛选通过VBA快速文本筛选

    细说自动筛选和高级筛选通过VBA快速文本筛选
    排序中的自定义排序的引用序列如何能够用VBA来写活,指定按某列顺序来排序来

    Attribute VB_Name = "find_cell"
    Option Explicit
    
    Sub select1()
    Attribute select1.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' select1 宏
    '
    
    '
        Range("A1").Select
        Range(Selection, Selection.End(xlToRight)).Select
    End Sub
    Sub filldown()
    Attribute filldown.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' filldown 宏
    '
    
    '
        Range("A1:A8").Select
        Selection.filldown
        
        Selection.copy
        Range("D11").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
    End Sub
    Sub copy()
    Attribute copy.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' copy 宏
    '
    
    '
        Range("E2").Select
        Selection.copy
        Range("E13").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("F13").Select
        ActiveSheet.Paste
        Range("G13").Select
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Range("H13").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Range("I13").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Range("J13").Select
        ActiveSheet.Paste Link:=True
        Range("K13").Select
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        Range("L13").Select
        Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Range("M13").Select
        ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Range("N13").Select
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("O13").Select
        ActiveSheet.Pictures.Paste.Select
        ActiveSheet.Shapes.Range(Array("Picture 1")).Select
        Range("P13").Select
        ActiveSheet.Pictures.Paste(Link:=True).Select
        ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    End Sub
    Sub delwq()
    Attribute delwq.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' delwq 宏
    '
    
    '
        ActiveSheet.Shapes.Range(Array("Picture 1")).Select
        Selection.Delete
        ActiveSheet.Shapes.Range(Array("Picture 2")).Select
        Selection.Cut
        Range("K13").Select
        Selection.Delete Shift:=xlToLeft
        Range("L13").Select
        Selection.Delete Shift:=xlUp
        Range("M13").Select
        Selection.EntireRow.Delete
        Selection.EntireColumn.Delete
        Selection.ClearContents
        Range("M13").AddComment
        Range("M13").Comment.Visible = False
        Range("M13").Comment.text text:="123"
        Range("M13").Select
        Selection.NumberFormatLocal = "0_ "
        Selection.NumberFormatLocal = "yyyy/m/d h:mm;@"
        Selection.NumberFormatLocal = "@"
        Range("N13").Select
        ActiveCell.FormulaR1C1 = "3/24/2019 12:45"
        Range("N14").Select
        Columns("N:N").ColumnWidth = 15.33
        Range("N14").Select
        ActiveCell.FormulaR1C1 = "123456"
        Range("N14").Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Range("N13").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.599993896298105
            .PatternTintAndShade = 0
        End With
        With Selection.Font
            .Color = -16776961
            .TintAndShade = 0
        End With
        Range("N14").Select
    End Sub
    
    Sub usedrow()
    Dim re
    On Error Resume Next
    
    Range("B3", Cells(ActiveSheet.UsedRange.Rows.Count, 2)).SpecialCells (xlCellTypeBlanks)
    '不用管,对齐问题,要想接收对象,必须用set ,如果函数的返回是对象可以直接写对象的操作,也可以保存对象的引用,再使用对象方法
    'MSCell("工号").Select
    '要想变量接收对象要写成下面的形式
    Set re = MSCell("工号")
    re.Select
    
    
    End Sub
    Sub get_area()
    Dim re, findc, i, row_, col_
    For Each i In Worksheets
        Debug.Print i.Name
        i.Select
        row_ = ActiveSheet.UsedRange.Rows.Count
        col_ = ActiveSheet.UsedRange.Columns.Count
        Set re = MSCell("工号", i.Name)
        re.Select
        findc = Empty
        On Error Resume Next
        Debug.Print ActiveSheet.UsedRange.Rows.Count: Set findc = Range(re, Cells(ActiveSheet.UsedRange.Rows.Count, re.Column)): Debug.Print findc.Address: findc.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        
    Next
    
    
    End Sub
    Function MSCell(value As String, shname As String)
    
        Dim result
        Sheets(shname).Select
        Set result = Cells.Find(What:=value, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, MatchByte:=False, SearchFormat:=False)
        If result.Count = 1 Then
            Set MSCell = result
            result.Select
        Else:
            Debug.Print result.Count
        End If
    End Function
    
    
    Attribute VB_Name = "copyfilterfiled1"
    Option Explicit
    Dim exists_f, wk, sh
    
    
    Sub sheet_s(sheet)
    exists_f = False
    
    For Each wk In Workbooks
        For Each sh In wk.Worksheets
            If sh.Name = sheet Then
                exists_f = True
                wk.Activate
                sh.Select
            End If
            
        Next
        
    Next
    If exists_f = True Then
     Debug.Print "sheet exists"
    Else
     Debug.Print "Error not exists"
    End If
    
    
    
    End Sub
    
    
    Sub 宏1()
    Attribute 宏1.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' 宏1 宏
    '
    
    '
        sheet_s ("new")
        On Error Resume Next
            Sheets("new").Select
        If Err Then
        Debug.Print "sheet no exists"
        Else
        Sheets("new").UsedRange.Select: Debug.Print Selection.Name: Selection.AutoFilter: Selection.Delete
        End If
        
        'Sheets("new").Select
        Dim result, re, myrange
        
        Sheets("sheet3").Select
        Set result = Cells.Find(What:="一级渠道名称", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, MatchByte:=False, SearchFormat:=False)
        If result.Count = 1 Then
            result.Select
        Else:
            Debug.Print result.Count
        End If
        Range(result, result.End(xlToRight)).Select
        
        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$R$78").AutoFilter Field:=8, Criteria1:=Array( _
            "福安小区", "古南小区", "剑河家苑"), Operator:=xlFilterValues
        ActiveSheet.UsedRange.Select
        'result.UsedRange.Select
        
        
        
        
        Selection.copy
        On Error Resume Next
            Sheets("new").Select
        If Err Then Sheets.Add().Name = "new"
        Sheets("new").Select
    
        
        Range("c3").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        ActiveSheet.UsedRange.Select
        Debug.Print ActiveSheet.UsedRange.Address
        
        Set re = ActiveSheet.UsedRange.Find(What:="用户手机", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, MatchByte:=False, SearchFormat:=False)
            
        re.EntireRow.Select
        Selection.EntireRow.NumberFormatLocal = "0_ "
            
        Set myrange = Application.InputBox(prompt:="select a cells,is date time", Type:=8)
        myrange.Select
        Selection.EntireRow.NumberFormatLocal = "yyyy/m/d h:mm;@"
        With Selection.Font
            .Color = -16776961
            .TintAndShade = 0
        End With
        myrange.Rows.Item("2:3").Select
        Selection.EntireRow.NumberFormatLocal = "yyyy/m/d h:mm;@"
        'ActiveSheet.Paste
        
        Range("O3").Select
        Sheets("sheet3").Select
        Selection.AutoFilter
    End Sub
    Sub filter1()
    Attribute filter1.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' filter1 宏
    '
    
    '
        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$R$78").AutoFilter Field:=8, Criteria1:=Array( _
            "福安小区", "古南小区", "剑河家苑"), Operator:=xlFilterValues
    End Sub
    
    
    Attribute VB_Name = "删除空行"
    Option Explicit
    
    Sub text()
        'Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '找A列所有空单元格,然后删除空单元格所在行
        'Range("A1:D12").SpecialCells(xlCellTypeBlanks).Activate
        Range("A1:D12").SpecialCells(xlCellTypeLastCell).Activate
        Debug.Print Range("A1:D12").SpecialCells(xlCellTypeBlanks).Count
        Debug.Print Range("A1:A13").SpecialCells(xlCellTypeBlanks).Count
        
        
    End Sub
    Sub 删除空行()
    
    Dim rng As Range, ads As String, ad As String
    
    
    For Each rng In [a1:a14]
    
      If rng = "" Then ad = ad & rng.Address & ","
    
    Next
    
    ads = Left(ad, Len(ad) - 1)
    Debug.Print ads
    Debug.Print Range(ads).Address
    
    
    
    
    'Range(ads).EntireRow.Delete
    
    End Sub
    Sub xx()
        Range("A1:L6").Columns.AutoFit
    End Sub
    Sub arr()
    Dim MyArr(), MyRng As Range, NewRng As Range, a
    Debug.Print ActiveSheet.Name
    
    
    '''初始化
    Set MyRng = Range("A1:B3")
    MyArr = MyRng
    '''处理
    '''在
    '区域输出
    Debug.Print MyRng.Address
    Debug.Print MyRng.value
    For Each a In MyArr
    Debug.Print a
    Next
    
    
    
    End Sub
    
    
    
    Attribute VB_Name = "图表"
    Option Explicit
    
    Sub 宏1()
    Attribute 宏1.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' 宏1 宏
    '
    
    '
        Columns("E:F").Select
    End Sub
    Sub 宏2()
    Attribute 宏2.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' 宏2 宏
    '
    
    '
        Range("B2:C8").Select
        ActiveSheet.Shapes.AddChart2(227, xlLine).Select
        ActiveChart.SetSourceData Source:=Range("工作簿1!$B$2:$C$8")
        ActiveSheet.Shapes("图表 1").IncrementLeft -115.8
        ActiveSheet.Shapes("图表 1").IncrementTop 48
        ActiveChart.PlotArea.Select
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        ActiveChart.FullSeriesCollection(1).Delete
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.FullSeriesCollection(1).Name = "=工作簿1!$B$4:$C$4"
        ActiveChart.FullSeriesCollection(1).Values = "=工作簿1!$H$4:$K$4"
        ActiveChart.FullSeriesCollection(1).XValues = "=工作簿1!$H$1:$K$1"
        ActiveChart.ChartArea.Select
        ActiveSheet.Shapes("图表 1").ScaleWidth 1.0741666667, msoFalse, _
            msoScaleFromTopLeft
        ActiveSheet.Shapes("图表 1").ScaleHeight 1.0583333333, msoFalse, _
            msoScaleFromBottomRight
        ActiveSheet.Shapes("图表 1").IncrementLeft 15.6
        ActiveSheet.Shapes("图表 1").IncrementTop 49.8
    End Sub
    Sub 宏3()
    Attribute 宏3.VB_ProcData.VB_Invoke_Func = " \n14"
    '
    ' 宏3 宏
    '
    
    '
        Range("G2").Select
        Selection.copy
        Range("H6:K6").Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Range("K8").Select
    End Sub
    
    
    展开全文
  • VBA示例_高级筛选

    2018-06-27 08:27:36
    excel,vba,高级筛选示例代码及文件 Sub ɸѡ() ' ' ɸѡ Macro ' aa ¼Ç¼µÄºê 2006-3-7 ' ' Range("J7").Select Sheets("Ã÷ϸ±í").Range("A1:G22").AdvancedFilter Action:=xlFilterCopy, ...
  • VBA多工作簿、工作表 多条件匹配-高级筛选
  • VBA Excel 高级筛选AdvancedFilter

    千次阅读 2014-03-27 17:16:32
    ,则筛选出所有符合条件的记录。默认值为 False 。 例子: (看附件) Sub Macro1() Range("A1:D12").Select Range("A1:D12").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range...
    最近在网上找到了一些比较好的关于AdvancedFilter应用的例子,总结和分享如下: 
    

    expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)

    expression 必需。该表达式返回“应用于”列表中的对象之一。

    Action XlFilterAction 类型,必需。

    XlFilterAction 可为以下 XlFilterAction 常量之一。
    xlFilterCopy
    xlFilterInPlace

    CriteriaRange Variant 类型,可选。条件区域。如果省略本参数,则没有条件限制。

    CopyToRange Variant 类型,可选。如果 ActionxlFilterCopy,则本参数指定被复制行的目标区域。否则忽略本参数。

    Unique Variant 类型,可选。如果为 True,则重复出现的记录仅保留一条;如果为 False,则筛选出所有符合条件的记录。默认值为 False

    例子:(看附件)

    VBA <wbr>Excel <wbr>高级筛选AdvancedFilter应用实例总结

    Sub Macro1()

    Range("A1:D12").Select

    Range("A1:D12").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

    "F5:I6"), CopyToRange:=Range("K1"), Unique:=False

    End Sub

    总结:

    在条件设定中:

    1. 同一行的各条件是“and”的关系

    2.不同行间是“or”的关系

    3. 条件列标题要和原来表格的一致

    4. VBA条件范围时要注意,在选定多行范围时,空单元格也是一个条件,如本例,如果只选定“F5I6”,那只有“F6and "G6"的共同条件, 但如果选F5I7”,而第7行为空,则在以上条件下,还要考虑 or ""的条件 (相当于全选)


    原文载于:http://blog.sina.com.cn/s/blog_4ae507470100zd54.html    作者:长风破浪
    展开全文
  • excel高级筛选vba代码

    2015-06-08 11:46:39
    编写的高级筛选代码,可以实现办公自动化,效率比较高。对于其他数据记录,改改参数就可以,轻松搞定。
  • 课件下载:https://share.weiyun.com/6Ckc1ivc下载的时候,记得另存一个文件名称关注公众号,观看视频解析:如果你对于高级筛选还不是很了解,可以参考这个视频链接:高级筛选所有的用法高级筛选真的是很好用的功能,无论是...

    db1c9bc66bcfe749434ac802e4966f3b.png

    课件下载:

    https://share.weiyun.com/6Ckc1ivc

    0bf075be8f28f57904a1270d3fd88e9a.png

    下载的时候,记得另存一个文件名称

    关注公众号,观看视频解析:

    588c29da99f73aee0dbb4c1d67e10aa8.png

    如果你对于高级筛选还不是很了解,可以参考这个视频链接:

    高级筛选所有的用法

    高级筛选真的是很好用的功能,

    无论是一对多的查找,多对多的查找,范围的条件匹配

    高级筛选都是很好用的!

    其弊端也很明显:

    当你的条件不断的就发生变换,你就需要:

    不停的去重复选择数据源,条件区域,和最后满足条件放置的位置!

    这一章,我们会加入一点点的VBA人人都能够看懂,

    实现输入条件,选择按钮就可以直接输出结果,不需要轮回操作高级筛选的每一个步骤!

    93299fd5b32417cfdf60cf500d6e11e2.png

    有任何问题,你都可以选择公众号下方的课程搜索按钮,进行课程的查找

    如果你对于VBA感兴趣,想要深度学习,

    可以加入到我的VBA频道:

    e482d810647d684add77f4f072a1cf56.png

    除了基础部分的100多章

    一些优质套表也都是平均每章1到2个小时的教程解析.

    智能考勤表甘特项目管理器
    VBA管理清单VBA菜谱系列
    Listbox延申应用周览时间管理表
    VBA地图系列月览时间管理表
    窗体日历插件

    年事件管理表

    本章视频:记得给老徐赞在看!

    8f61c16287561c3a5ecc00750a9ead38.pngf51687703dcd1ffe02530769f1df8e8d.gif6f54e105aadaa9eaa40be0b4fc9bcada.png

    展开全文
  • 实现excel里手动操作高级筛选全部动作的代码化。Sub Advanced_filter() Dim rngData As Range, rngCriteria As Range, rngResult As Range Dim i As Integer Dim temp As String i = Range("a" & Rows.Count).E....
  • Sub 数组筛选()Dim x, y, m, nDim ar, br(1 To 25, 1 To 5)ar = Range("a2:e21"): m = 0If [d24] = "" And [e24] = "" And [f24] = "" ThenFor x = 1 To UBound(ar)If ar(x, 2) >= Range("b24") And ar(x, 2) <...
  • VBA代码实例---高级筛选

    万次阅读 2017-04-10 21:06:33
    首先介绍Excel工作簿的内容进行说明:一个工作簿两个工作表,学生/高级筛选,七个字段; 实现功能:在高级筛选中, 做一个快速的条件筛选。 Option Explicit Sub 高级筛选() '判断高级筛选条件区域有多少行...
  • 高级筛选教程(全VBA代码实现),代码全公开~
  • 大家好,我是陈小虾,是一名自动化方向的IT民工。...本工作表使用VBA实现了如下功能: 1、跨表格多条件筛选 2、在新表格输出结果 3、将结果生成TXT文件 关注公众号:万能的Excel 并回复【跨表格...
  • excel vba筛选

    千次阅读 2017-02-10 09:45:32
    excel 中有两个筛选 1、筛选,vba 代码为 set rg=range("a1:a100") rg.AutoFilter Field:=1, Criteria1:="内容" rg 为筛选区域, Criteria1为筛选的值,...2、高级筛选  Rg.AdvancedFilter Action:=xlFilte
  • 上一篇我们已经用VBA实现SQL检索,并实现相同项求和的功能。那么如何根据日期范围筛选我们需要的数据呢?今天我们看看另外一个SQL查询结构: SQL = "select 字段1 from [原始数据$] where 出库时间 between #开始...
  • VBA实现Excel模块筛选高级应用场景!

    千次阅读 2019-09-02 13:34:33
    做过项目管理或者产品管理的小伙伴...今天我给大家讲一个复杂场景下通过VBA实现Excel模块筛选高级应用。 这里我们先通过图片和文字描述一下需要实现的一个需求场景: 首先有一个Excel,其中有两个Sheet,Sheet1...
  • 功能: 1、根据输入的关键字,实时搜索数据库筛选 2、不限数据库大小
  • 一、高级筛选功能的学习与掌握 以前从未用过高级筛选,原因就是不会,试了好多次,总是在将筛选结果得到其他区域时提示:只能将复制到筛选后的活动工作表,搞了半天也没明白是什么意思。 到网上查了一下,一位仁兄的...
  • 当你需要从不同供应商的价格表中,筛选出符合条件的商品当你需要从每个月的工资表中,筛选出某个员工的...今天,小编就带你用VBA实现这个多个表格自动的筛选功能!废话不多说,先看效果:多表格自动筛选附上代码:Su...
  • 本示例共展示了包括采用1、countif函数 2、高级筛选 3、排序后筛选 4、数组循环 5、引用collection对象在内的共5种筛选非重复值的方法,并注明了各种方法的优缺点,对于学习者是非常好的资料。资料来源:Excel...
  • 在日常工作中,在海量数据中筛选出有用的数据是最常见的工作之一,虽然大部分功能都能通过EXCEL公式,例如VLOOKUP/HLOOKUP/LOOKUP 缺点是速度慢,而且不够灵活添加删除数据。 那么小编今天就带你试试用SQL查询数据...
  • 1、根据每天的出库、入库记录,自动筛选出产品ID号 2、实时统计每个产品的库存状态 3、自动统计每个月产品总出库、入库数量 关注公众号:万能的Excel 并回复【进销表】获取源文件! Private Sub Worksheet_...
  • 一Excel里的高级筛选功能,着实令人惊叹,VBA里实现起来也相对简单,就是手动操作的代码化,设置好三项参数,便可以随取随用,效果稳准快。 ...
  • 一Excel里的高级筛选功能,着实令人惊叹,VBA里实现起来也相对简单,就是手动操作的代码化,设置好三项参数,便可以随取随用,效果稳准快。二在python 中实现同样的目的,更为直白爽快,不信你看:源数据,在一个...
  • 一Excel里的高级筛选功能,着实令人惊叹,VBA里实现起来也相对简单,就是手动操作的代码化,设置好三项参数,便可以随取随用,效果稳准快。 ...
  • 一Excel里的高级筛选功能,着实令人惊叹,VBA里实现起来也相对简单,就是手动操作的代码化,设置好三项参数,便可以随取随用,效果稳准快。二在python 中实现同样的目的,更为直白爽快,不信你看:源数据,在一个...
  • VBA 初学习

    2018-10-26 15:12:54
    Excal VBA 学习记录 录制宏做简单的高级筛选 注意点:在做的过程中,录制宏的表格必须是最后显示数据的表格,不能是筛选页。
  • VBA代码全集模板.pdf

    2020-07-09 00:21:11
    VBA 代码全集 云南农业大学 1 VBA 代码全集 云南农业大学 2 VBA 代码全集 目 录 一引用 4 二Worksheet_Change 事件 4 三相乘 6 四相减 7 五高级筛选 7 六双击事件 9 七单位汇总sumif 单条件汇总11 八多条件汇总 连接...
  • VBA 代码全集 云南农业大学 1 VBA 代码全集 云南农业大学 2 VBA 代码全集 目 录 一引用 4 二 Worksheet_Change事件 4 三相乘 6 四相减 7 五高级筛选 7 六双击事件 9 七单位汇总 sumif单条件汇总 . 11 八多条件汇总 ...
  • 很多时候,我们需要对表格数据进行查询,如果每次进行筛选的话,操作不方便,我们可以制作一个简易的查询小系统,轻松的查询想要的数据,秒变大神,制作的效果如下所示:即可以进行某个条件的查询数据,比如,输入你...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 147
精华内容 58
关键字:

vba高级筛选