精华内容
下载资源
问答
  • 有同学问:能能使用union函数将符合条件的单元格所在行全部选中,然后删除. 如下图:删除黄色底纹的标题行 为此,给出代码如下: Sub test() Dim arr, myrow As String Dim cc As Variant, ran As Range r = Sheet...

    有同学问:能不能使用union函数将符合条件的单元格所在行全部选中,然后删除.

    如下图:删除黄色底纹的标题行

    为此,给出代码如下:

    Sub test()
    Dim arr, myrow As String
    Dim cc As Variant, ran As Range
    r = Sheet1.Range("b65536").End(xlUp).Row
    arr = Sheet1.Range(B1:B" & r).Value

    For i = 1 To UBound(arr, 1)
        If arr(i, 1) = "count" Then
            myrow = myrow & i & ","
            myrow = myrow & i + 1 & ","
        End If
    Next i

    cc = VBA.Split(myrow, ",")
    'union中必须是对象.所以这种写法必须先让一个变量定义为具体的对象
    Set ran = Rows(cc(0))
    For i = 1 To UBound(cc) - 1 '因分割后有一个空字符产生,所以舍掉
        Set ran = Application.Union(ran, Rows(cc(i)))
    Next i

    ran.Delete
    Set ran = Nothing
    End Sub

     

     

    展开全文
  • VBA程序集(第4辑)

    2011-07-17 21:58:00
    ...**********************************程序...[程序说明] 根据A列中的值进行判断,如果不符合条件,则删除不符合条件的单元格所在。 [程序扩展] 可以根据实际情况对代码进行更改,如可对判断的列进行更...
    
    

    VBA程序集
    (第4辑)

    **********************************
    程序13(查找)
    [程序功能] 根据某列中单元格的值是否满足条件决定是删除该单元格所在的行还是保留该单元格所在的行
    [程序说明] 根据A列中的值进行判断,如果不符合条件,则删除不符合条件的单元格所在的行。
    [程序扩展] 可以根据实际情况对代码进行更改,如可对判断的列进行更换,可对判断的值进行更改,以满足所需功能。
    注:本示例也可用工作表中的高级筛选功能实现所需结果。
    [程序代码]
    Sub 删除行()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim lastrow As Long, r As Long
    lastrow = ActiveSheet.UsedRange.Rows.Count

    For r = lastrow To 2 Step -1
    If UCase(Cells(r, 1).Value) <> "留下" Then Rows(r).Delete '可以根据实际情况将条件进行更改,以实现需求.如更改列,或比较的值等
    Next r

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    End Sub

    示例文档见UploadFiles/2006-6/627521432.rar
    **********************************
    程序14(窗体控件——文本框)
    [程序功能] 在界面中有多个文本框,在文本框中输入数据,当第一个文本框达到最大输入时,光标自动转移到下一个文本框。
    [程序说明] 本示例在工作表中有一个按钮,单击按钮将显示一个窗体。窗体上有5个文本输入框和一个按钮,输入焦点在第一个文本框,当第一个文本框中输入完后,光标自动转入第二个文本框,依次类推,当最后一个文本框输入完成后,“确定”按钮获得焦点,单击或按回车键将文本框中的数据输入到工作表中。单击“取消”按钮将关闭窗体。
    [程序代码]
    ‘单击工作表上的按钮,显示输入窗体
    Private Sub CommandButton1_Click()
    UserForm1.Show
    End Sub
    ***************************
    ‘各文本框代码
    Private Sub TextBox1_Change()
    EvaluateTextEntry TextBox1
    End Sub
    Private Sub TextBox2_Change()
    EvaluateTextEntry TextBox2
    End Sub
    Private Sub TextBox3_Change()
    EvaluateTextEntry TextBox3
    End Sub
    Private Sub TextBox4_Change()
    EvaluateTextEntry TextBox4
    End Sub
    Private Sub TextBox5_Change()
    EvaluateTextEntry TextBox5
    End Sub
    **************************
    ‘确定按钮代码
    Private Sub DoneButton_Click()
    Dim NextRow As Long
    NextRow = Range("A65536").End(xlUp).Row + 1
    With ActiveSheet
    .Range("A" & NextRow) = TextBox1.Text
    .Range("B" & NextRow) = TextBox2.Text
    .Range("C" & NextRow) = TextBox3.Text
    .Range("D" & NextRow) = TextBox4.Text
    .Range("E" & NextRow) = TextBox5.Text
    End With
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox1.SetFocus
    End Sub
    **************************
    ‘取消按钮代码
    Private Sub CancelButton_Click()
    Unload Me
    End Sub
    **************************
    ‘输入焦点控制代码
    Private Sub EvaluateTextEntry(ByVal TheTextBox)
    If Len(TheTextBox.Text) = TheTextBox.MaxLength Then
    If TheTextBox.Name = "TextBox5" Then
    DoneButton.SetFocus
    Else
    Me.Controls("TextBox" & Val(Mid(TheTextBox.Name, 8)) + 1).SetFocus
    End If
    End If
    End Sub

    示例文档见UploadFiles/2006-6/627931716.rar
    **********************************
    程序15(对象集合)
    [程序说明] 本示例创建对象集合并使用所创建的集合。
    [程序代码]
    Sub temp()
    Dim ws As Worksheet
    Dim colMySheets As New Collection
    Dim str As String

    ‘添加工作表名中带有“C”的工作表到新集合变量中
    For Each ws In ActiveWorkbook.Sheets
    If InStr(ws.Name, "c") > 0 Then
    colMySheets.Add ws
    End If
    Next ws

    ‘显示新集合中工作表名
    For Each ws In colMySheets
    str = str & ws.Name & vbLf
    Next ws
    MsgBox str
    End Sub
    [程序扩展]
    (1)‘声明所创建的集合为全局变量
    Public colMySheets As New Collection
    ‘可以在任何地方初始化所创建的集合变量,如在Workbook_Open事件中。
    Sub InitCollection()
    Dim i As Long
    ‘对新集合变量进行清理
    For i = 1 To colMySheets.Count
    colMySheets.Remove 1
    Next i
    ‘添加变量
    colMySheets.Add ThisWorkbook.Sheets("Sheet1")
    colMySheets.Add ThisWorkbook.Sheets("Sheet2")
    End Sub
    (2)‘可以指定集合在任何程序中或模块中,例如,如果想将工作表名放置在窗体中的列表框中,可在窗体初始化中加入以下代码。
    Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In colMySheets
    ListBox1.AddItem ws.Name
    Next ws
    End Sub
    (3)示例工作簿使用了一个窗体来测试集合,在打开工作簿时会对工作簿进行初始化,添加新的菜单,见[过程15]创建和使用集合变量.xls。

    示例文档见UploadFiles/2006-6/627893209.rar
    **********************************
    程序16(工作表事件)
    [程序说明] 在某列中输入数据,对应列自动添加代码。本示例中“关键词代码”工作表为源数据工作表,在“主表”中C列输入关键词后,相应的B列自动列出其代码。
    [程序代码]
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 3 Then
    On Error Resume Next
    Target.Offset(, -1) = Sheets("关键词代码").Columns(2).Find(What:=Target, MatchCase:=False).Offset(, -1)
    End If
    If Err > 0 Then MsgBox ("没有发现代码!")
    Application.EnableEvents = True
    End Sub
    注:(1)代码须编写在“主表”工作表模块中;(2)可以用Excel公式实现,即在“主表”工作表的B列输入公式=VLOOKUP(C2,'关键词代码'!B:C,2,FALSE),下拉即可。但如果C列中的值为空的话,将显示#N/A错误值。当然,也可以编写=IF公式消除。VBA与Excel公式各有特点。

    示例文档见UploadFiles/2006-6/627966543.rar
    **********************************
    程序17(用户窗体与工作簿)
    [程序功能] 打开工作簿时只显示用户窗体。
    [程序说明] 示例中包含有一个用户窗体,当工作簿打开时只显示此用户窗体,点击说明文字后,工作簿出现,用户窗体消失。
    [程序扩展] 可以用在用户界面设计中,只显示用户窗体,而不显示工作簿,把工作簿当作运行后台。
    [程序代码]
    Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
    End Sub
    **********************************
    Private Sub Label1_Click()
    Application.Visible = True
    Unload UserForm1
    End Sub

    示例文档见UploadFiles/2006-6/627130154.rar


    展开全文
  • SQL语法大全

    2014-03-30 11:00:11
    AbsolutePosition 支持 支持 可读写 可读写 ActiveConnection 可读写 可读写 可读写 可读写 BOF 只读 只读 只读 只读 Bookmark 支持 支持 可读写 可读写 CacheSize 可读写 可读写 可读写 可读写 ...
  • 是否删除源文本一内部的空格。 2 、可以选择哪些行不进行排版。 3 、是否删除连续的重复。 4 、是否忽略以某些特定字符串开始的。 5 、你可以选择是否进行全角- 〉半角字符的转换。 6 、是否将连续两个...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【图表条件格式】:对图表的系列执行条件格式,可以设置2到3个条件,符合条件的系列值填充指定的颜色 【修改文件时间】:随心所欲修改文件的创建时间 【清除IE上网密码】:用于清除IE浏览器的密码,突破上网限制 【创建...
  • Excel百宝箱

    2012-10-27 17:09:21
    【图表条件格式】:对图表的系列执行条件格式,可以设置2到3个条件,符合条件的系列值填充指定的颜色 【修改文件时间】:随心所欲修改文件的创建时间 【清除IE上网密码】:用于清除IE浏览器的密码,突破上网限制 【创建...
  • 功能: 将选择区域或者选区所在行、列用醒目的颜色标识,便于查看 特点: 1.着色的对象有“选区”、“行”、“列”以及“行列”可选。 2.可选颜色包括6种。 3.可以随时启用、禁用着色功能。 4.程序具有记忆功能。即...
  • 功能: 将选择区域或者选区所在行、列用醒目的颜色标识,便于查看 特点: 1.着色的对象有“选区”、“行”、“列”以及“行列”可选。 2.可选颜色包括6种。 3.可以随时启用、禁用着色功能。 4.程序具有记忆功能。即...
  • Excel高级工具箱

    2012-01-03 22:15:22
    功能: 将选择区域或者选区所在行、列用醒目的颜色标识,便于查看 特点: 1.着色的对象有“选区”、“行”、“列”以及“行列”可选。 2.可选颜色包括6种。 3.可以随时启用、禁用着色功能。 4.程序具有记忆功能。...
  • 【图表条件格式】:对图表的系列执行条件格式,可以设置2到3个条件,符合条件的系列值填充指定的颜色 【修改文件时间】:随心所欲修改文件的创建时间 【清除IE上网密码】:用于清除IE浏览器的密码,突破上网限制 【创建...
  • 【图表条件格式】:对图表的系列执行条件格式,可以设置2到3个条件,符合条件的系列值填充指定的颜色 【修改文件时间】:随心所欲修改文件的创建时间 【清除IE上网密码】:用于清除IE浏览器的密码,突破上网限制 ...
  • 括号在正则表达式中表示,文本中的字符匹配括号中任意一个字符即符合查找条件。 (3)按一下空格键,添加空格符。空格符是空行的一个组成成分。 (4)选择“制表符”,添加代表制表符的“\t”。 (5)移动光标,将...
  • 功能: 将选择区域或者选区所在行、列用醒目的颜色标识,便于查看 特点: 1.着色的对象有“选区”、“行”、“列”以及“行列”可选。 2.可选颜色包括6种。 3.可以随时启用、禁用着色功能。 4.程序具有记忆功能。...
  • eas供应链dep案例集

    2017-11-18 22:32:39
    单据操作控制修改 EASSCMA1P0055 收款单的流入预算项目值从第一携带 应付单生成的收款单的流入预算项目能粘贴,以前都是可以粘贴的,但是现在不行了,一个收款单分录有几千条,如果一个一个去选择要很长时间 1) ...
  • 作者通过总结各自多年的软件开发和教学培训经验,与大家分享了掌握Oracle SQL所独有的丰富功能的技巧所在,内容涵盖SQL执行、联结、集合、分析函数、子句、事务处理等多个方面。读者可以学习到以下几个方面的技巧:...
  • 作者通过总结各自多年的软件开发和教学培训经验,与大家分享了掌握Oracle SQL所独有的丰富功能的技巧所在,内容涵盖SQL执行、联结、集合、分析函数、子句、事务处理等多个方面。读者可以学习到以下几个方面的技巧:...
  • REM SYSTEM 的的内容,每找到一个符合条件,就把变量M在原有基础上+1。 STRINGS L=LINESIZE LIST.TXT STRINGS L=ADD %L%,1 SET N=0 SET M=0 :LOOP STRINGS N=ADD %N%,1 STRINGS LX=READ LIST.TXT,%N% REM ...
  • 而且删除当前用户,如果删除的用户有数据对象,那么必须加上关键字cascade。 用法:drop user 用户名 [cascade] 四、 用户权限与角色 1. 权限 Oracle中权限主要分为两种,系统权限和实体权限。  系统权限:...
  • SQL培训第一期

    2018-03-14 15:04:04
    党员表 党员Id 党员姓名 组织名称 不符合3NF 组织表 组织Code 组织名称 1.6 外连接 1.6.1 准备 create table student_A( uuid varchar2(32), name varchar2(100)); create table student_B( uuid varchar2(32)...
  • Editplus 3[1].0

    2011-04-02 10:45:21
    括号在正则表达式中表示,文本中的字符匹配括号中任意一个字符即符合查找条件。 (3)按一下空格键,添加空格符。空格符是空行的一个组成成分。 (4)选择“制表符”,添加代表制表符的“\t”。 (5)移动光标,将...
  • 括号在正则表达式中表示,文本中的字符匹配括号中任意一个字符即符合查找条件。 (3)按一下空格键,添加空格符。空格符是空行的一个组成成分。 (4)选择“制表符”,添加代表制表符的“\t”。 (5)移动光标,将...
  • EditPlus.rar +GCC

    2012-02-17 23:12:16
    括号在正则表达式中表示,文本中的字符匹配括号中任意一个字符即符合查找条件。 (3)按一下空格键,添加空格符。空格符是空行的一个组成成分。 (4)选择“制表符”,添加代表制表符的“\t”。 (5)移动光标,将...
  • MySQL命令大全

    2018-01-15 11:19:17
    如一个只进行数据插入的用户应赋予其删除数据的权限。MySql的用户管理是通过User表来实现的,添加新用户常用的方法有两个,一是在User表插入相应的数据,同时设置相应的权限;二是通过GRANT命令创建具有某种权限...
  • MYSQL常用命令大全

    2011-05-30 13:31:24
    如一个只进行数据插入的用户应赋予其删除数据的权限。MySql的用户管理是通过 User表来实现的,添加新用户常用的方法有两个,一是在User表插入相应的数据,同时设置相应的权限;二是通过GRANT命令创建具有某种...
  • 155.在指定列中寻找含有指定字符串的单元格,并将符合条件的单元格标为红色,并将对应的下一列单元格赋值为1 156.清除字符串中的空格 157.查找合并单元格位置 158.阴阳历转换和阴阳历生日 159.利用数组和Substitute...

空空如也

空空如也

1 2 3 4
收藏数 73
精华内容 29
关键字:

删除不符合条件所在行