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

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

Attribute VB_Name = "find_cell"
Option ExplicitSub select1()
Attribute select1.VB_ProcData.VB_Invoke_Func = " \n14"
'
' select1 宏
''Range("A1").SelectRange(Selection, Selection.End(xlToRight)).Select
End Sub
Sub filldown()
Attribute filldown.VB_ProcData.VB_Invoke_Func = " \n14"
'
' filldown 宏
''Range("A1:A8").SelectSelection.filldownSelection.copyRange("D11").SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=True
End Sub
Sub copy()
Attribute copy.VB_ProcData.VB_Invoke_Func = " \n14"
'
' copy 宏
''Range("E2").SelectSelection.copyRange("E13").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseRange("F13").SelectActiveSheet.PasteRange("G13").SelectSelection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseRange("H13").SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueRange("I13").SelectSelection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseRange("J13").SelectActiveSheet.Paste Link:=TrueRange("K13").SelectSelection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _, SkipBlanks:=False, Transpose:=FalseRange("L13").SelectSelection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseRange("M13").SelectActiveSheet.PasteSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseRange("N13").SelectSelection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _, SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseRange("O13").SelectActiveSheet.Pictures.Paste.SelectActiveSheet.Shapes.Range(Array("Picture 1")).SelectRange("P13").SelectActiveSheet.Pictures.Paste(Link:=True).SelectActiveSheet.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")).SelectSelection.DeleteActiveSheet.Shapes.Range(Array("Picture 2")).SelectSelection.CutRange("K13").SelectSelection.Delete Shift:=xlToLeftRange("L13").SelectSelection.Delete Shift:=xlUpRange("M13").SelectSelection.EntireRow.DeleteSelection.EntireColumn.DeleteSelection.ClearContentsRange("M13").AddCommentRange("M13").Comment.Visible = FalseRange("M13").Comment.text text:="123"Range("M13").SelectSelection.NumberFormatLocal = "0_ "Selection.NumberFormatLocal = "yyyy/m/d h:mm;@"Selection.NumberFormatLocal = "@"Range("N13").SelectActiveCell.FormulaR1C1 = "3/24/2019 12:45"Range("N14").SelectColumns("N:N").ColumnWidth = 15.33Range("N14").SelectActiveCell.FormulaR1C1 = "123456"Range("N14").SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.IndentLevel = 0.ShrinkToFit = False.ReadingOrder = xlContext.MergeCells = FalseEnd WithRange("N13").SelectWith Selection.Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorAccent1.TintAndShade = 0.599993896298105.PatternTintAndShade = 0End WithWith Selection.Font.Color = -16776961.TintAndShade = 0End WithRange("N14").Select
End SubSub usedrow()
Dim re
On Error Resume NextRange("B3", Cells(ActiveSheet.UsedRange.Rows.Count, 2)).SpecialCells (xlCellTypeBlanks)
'不用管，对齐问题，要想接收对象，必须用set ,如果函数的返回是对象可以直接写对象的操作,也可以保存对象的引用，再使用对象方法
'MSCell("工号").Select
'要想变量接收对象要写成下面的形式
Set re = MSCell("工号")
re.SelectEnd Sub
Sub get_area()
Dim re, findc, i, row_, col_
For Each i In WorksheetsDebug.Print i.Namei.Selectrow_ = ActiveSheet.UsedRange.Rows.Countcol_ = ActiveSheet.UsedRange.Columns.CountSet re = MSCell("工号", i.Name)re.Selectfindc = EmptyOn Error Resume NextDebug.Print ActiveSheet.UsedRange.Rows.Count: Set findc = Range(re, Cells(ActiveSheet.UsedRange.Rows.Count, re.Column)): Debug.Print findc.Address: findc.SpecialCells(xlCellTypeBlanks).EntireRow.DeleteNextEnd Sub
Function MSCell(value As String, shname As String)Dim resultSheets(shname).SelectSet 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 ThenSet MSCell = resultresult.SelectElse:Debug.Print result.CountEnd If
End Function

Attribute VB_Name = "copyfilterfiled1"
Option Explicit
Dim exists_f, wk, shSub sheet_s(sheet)
exists_f = FalseFor Each wk In WorkbooksFor Each sh In wk.WorksheetsIf sh.Name = sheet Thenexists_f = Truewk.Activatesh.SelectEnd IfNextNext
If exists_f = True ThenDebug.Print "sheet exists"
ElseDebug.Print "Error not exists"
End IfEnd SubSub 宏1()
Attribute 宏1.VB_ProcData.VB_Invoke_Func = " \n14"
'
' 宏1 宏
''sheet_s ("new")On Error Resume NextSheets("new").SelectIf Err ThenDebug.Print "sheet no exists"ElseSheets("new").UsedRange.Select: Debug.Print Selection.Name: Selection.AutoFilter: Selection.DeleteEnd If'Sheets("new").SelectDim result, re, myrangeSheets("sheet3").SelectSet result = Cells.Find(What:="一级渠道名称", After:=ActiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:=False, MatchByte:=False, SearchFormat:=False)If result.Count = 1 Thenresult.SelectElse:Debug.Print result.CountEnd IfRange(result, result.End(xlToRight)).SelectSelection.AutoFilterActiveSheet.Range("$A$1:$R$78").AutoFilter Field:=8, Criteria1:=Array( _"福安小区", "古南小区", "剑河家苑"), Operator:=xlFilterValuesActiveSheet.UsedRange.Select'result.UsedRange.SelectSelection.copyOn Error Resume NextSheets("new").SelectIf Err Then Sheets.Add().Name = "new"Sheets("new").SelectRange("c3").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueActiveSheet.UsedRange.SelectDebug.Print ActiveSheet.UsedRange.AddressSet re = ActiveSheet.UsedRange.Find(What:="用户手机", After:=ActiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:=False, MatchByte:=False, SearchFormat:=False)re.EntireRow.SelectSelection.EntireRow.NumberFormatLocal = "0_ "Set myrange = Application.InputBox(prompt:="select a cells,is date time", Type:=8)myrange.SelectSelection.EntireRow.NumberFormatLocal = "yyyy/m/d h:mm;@"With Selection.Font.Color = -16776961.TintAndShade = 0End Withmyrange.Rows.Item("2:3").SelectSelection.EntireRow.NumberFormatLocal = "yyyy/m/d h:mm;@"'ActiveSheet.PasteRange("O3").SelectSheets("sheet3").SelectSelection.AutoFilter
End Sub
Sub filter1()
Attribute filter1.VB_ProcData.VB_Invoke_Func = " \n14"
'
' filter1 宏
''Selection.AutoFilterActiveSheet.Range("$A$1:$R$78").AutoFilter Field:=8, Criteria1:=Array( _"福安小区", "古南小区", "剑河家苑"), Operator:=xlFilterValues
End Sub

Attribute VB_Name = "删除空行"
Option ExplicitSub text()'Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '找A列所有空单元格，然后删除空单元格所在行'Range("A1:D12").SpecialCells(xlCellTypeBlanks).ActivateRange("A1:D12").SpecialCells(xlCellTypeLastCell).ActivateDebug.Print Range("A1:D12").SpecialCells(xlCellTypeBlanks).CountDebug.Print Range("A1:A13").SpecialCells(xlCellTypeBlanks).CountEnd Sub
Sub 删除空行()Dim rng As Range, ads As String, ad As StringFor Each rng In [a1:a14]If rng = "" Then ad = ad & rng.Address & ","Nextads = Left(ad, Len(ad) - 1)
Debug.Print ads
Debug.Print Range(ads).Address'Range(ads).EntireRow.DeleteEnd 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
NextEnd Sub

Attribute VB_Name = "图表"
Option ExplicitSub 宏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").SelectActiveSheet.Shapes.AddChart2(227, xlLine).SelectActiveChart.SetSourceData Source:=Range("工作簿1!$B$2:$C$8")ActiveSheet.Shapes("图表 1").IncrementLeft -115.8ActiveSheet.Shapes("图表 1").IncrementTop 48ActiveChart.PlotArea.SelectApplication.CutCopyMode = FalseApplication.CutCopyMode = FalseApplication.CutCopyMode = FalseApplication.CutCopyMode = FalseActiveChart.FullSeriesCollection(1).DeleteActiveChart.SeriesCollection.NewSeriesActiveChart.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.SelectActiveSheet.Shapes("图表 1").ScaleWidth 1.0741666667, msoFalse, _msoScaleFromTopLeftActiveSheet.Shapes("图表 1").ScaleHeight 1.0583333333, msoFalse, _msoScaleFromBottomRightActiveSheet.Shapes("图表 1").IncrementLeft 15.6ActiveSheet.Shapes("图表 1").IncrementTop 49.8
End Sub
Sub 宏3()
Attribute 宏3.VB_ProcData.VB_Invoke_Func = " \n14"
'
' 宏3 宏
''Range("G2").SelectSelection.copyRange("H6:K6").SelectSelection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseRange("K8").Select
End Sub

细说自动筛选和高级筛选通过VBA快速文本筛选相关推荐

excel筛选时只有文本筛选，没有数字筛选
可以看到进行筛选时,对数据只能进行文本筛选,我们需要选中数据.点击表格工具下的文本型数字转为数字
计算机基础---03Excel篇(入门，身份证筛选出生年月，自动填充功能，表格排序，自动筛选，高级筛选，数据有效性，求和)
1.Excel 1.1 快速入门说明一:一个Excel工作簿可以有很多工作表,点击+可以添加工作表: 工作表重命名:双击或者右键重命名. 给工作表标签添加颜色:不同的工作表标签可以代表轻重缓急,代表 ...
excel高级筛选_Excel自动筛选还是高级筛选？
excel高级筛选 Excel自动筛选还是高级筛选? (Excel AutoFilter or Advanced Filter?) Do you ever use the Excel Advanced ...
计算机二级excel高级筛选,Excel高级筛选，看这一篇就够了！
原标题:Excel高级筛选,看这一篇就够了! Excel高级筛选,看这一篇就够了 Excel中的自动筛选很多人都会用,但经常遇到多条件或复杂条件筛选时卡壳的窘境,其实强大的Excel早就为你准备了N多 ...
Excel VBA 多条件筛选及汇总统计
Excel VBA 多条件筛选 AdvancedFilter 汇总统计 sumproduct Range与Array交换在日常工作中,面对Excel表格数据,为了分类进行统计,通过对表格数据筛选获取 ...
excel高级筛选怎么用_Excel筛选与高级筛选的15个应用技巧解读！
在Excel中,"筛选"功能的应用率是比较高的,"高级筛选"的应用率相对要低很多,今天,小编带大家全面了解和掌握"筛选"."高级筛 ...
Excel中的数据筛选和高级筛选
Excel中提供了自动筛选(包括数字筛选.文本筛选和自定义筛选).和高级筛选两种数据筛选操作. Excel会根据数据类型来自动判断显示数字筛选或文本筛选. 筛选过的数据仅显示那些满足指定条件的行,并隐 ...
wps excel 多列数据同时筛选即高级筛选的用法
wps excel 多列数据同时筛选即高级筛选的用法最近在使用excel时,多了个希望可以多列数据同时筛选数据的需求,研究了一下,写下笔记记录一下,方便自己以后查看. 主要操作方法如下: 这是我的e ...
Excel·VBA多条件筛选组合结果
Function strTOF(str$) As Boolean'用于计算字符串判断True/False,默认返回False'适用vba比较运算符:速度比较慢,但通用Dim i&, j& ...
VBA for Excel 筛选功能 autofilter
range().autofilter filed:=N,criteria 1:=***, operator:=xland,criteria2:=*** N 不是代表第N列,是range里的N列: ra ...

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

细说自动筛选和高级筛选通过VBA快速文本筛选相关推荐

最新文章

热门文章