懒人之家网站模板,wordpress局域网,网站空间申请开通,网页设计素材免费版我给VBA下的定义#xff1a;VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率#xff0c;而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想#xff0c;积木编程最重要的是积木如何搭建…我给VBA下的定义VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木同时讲解了如何搭建。为了让学员拥有更多的积木我开始着手这部《VBA即用型代码手册汉英》的创作这部手册约600页集合约500多个的案例案例我用汉语和英语同时发布一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识另一方面大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是 VBA即用型代码手册根据预定义的文本条件删除行
【分享成果随喜正能量】每一个在你的生命里出现的人都有原因喜欢你的人给了你温暖和勇气你喜欢的人让你学会了爱和自持你不喜欢的人教会你宽容与尊重不喜欢你的人让你自省与成长。。
第四章 工作表代码
Worksheet Codes
20 根据预定义的文本条件删除行Delete Rows Based on Predefined Textual Criteria
此宏将允许您指定某些条件然后根据该条件删除行。您将选择要删除行的列和工作表;然后您将选择要查找的内容以删除行如果这些关键字存在于单元格中将导致该行被删除。
This macro will allow you to specify certain criteria and then to delete rows based upon that criteria. You will choose the Row, Column, and Sheet where you want to delete the rows; then you will select what you want to look for to delete a row - you type in keywords, which, if present in a cell, will cause that row to be deleted.
Sub mynzDelete_Based_on_Criteria() 此宏将根据预定义字符或一组字符的存在情况删除整行。 如果该字符或字符集在单元格中的指定列中则整行将被删除 Dim X As Long Dim Z As Long Dim LastRow As Long Dim FoundRowToDelete As Boolean Dim OriginalCalculationMode As Long Dim RowsToDelete As Range Dim SearchItems() As String Dim DataStartRow As Long Dim SearchColumn As String Dim SheetName As String 选择要开始搜索和删除的行 选择要搜索和删除的列以用于删除 在工作簿中选择运行此宏的工作表 DataStartRow 1 SearchColumn A SheetName Sheet4 输入要用于删除条件的字符要区分大小写需要用逗号分隔 SearchItems Split(AD,AR, ,) On Error GoTo Whoops OriginalCalculationMode Application.Calculation Application.Calculation xlCalculationManual Application.ScreenUpdating False With Worksheets(SheetName) LastRow .Cells(.Rows.Count, SearchColumn).End(xlUp).Row For X LastRow To DataStartRow Step -1 FoundRowToDelete False For Z 0 To UBound(SearchItems) If InStr(.Cells(X, SearchColumn).Value, SearchItems(Z)) Then FoundRowToDelete True Exit For End If Next If FoundRowToDelete Then If RowsToDelete Is Nothing Then Set RowsToDelete .Cells(X, SearchColumn) Else Set RowsToDelete Union(RowsToDelete, .Cells(X, SearchColumn)) End If If RowsToDelete.Areas.Count 100 Then RowsToDelete.EntireRow.Delete Set RowsToDelete Nothing End If End If Next End With If Not RowsToDelete Is Nothing Then RowsToDelete.EntireRow.Delete End If
Whoops: Application.Calculation OriginalCalculationMode Application.ScreenUpdating True
End Sub 本节内容参考程序文件Chapter04-2.xlsm 我20多年的VBA实践经验全部浓缩在下面的各个教程中
