精华内容
下载资源
问答
  • VBA高手直接删除指定条件.xls
  • Vba删除指定行

    千次阅读 2020-03-14 17:23:31
    Sub classification() Dim LastRow, max_level As Integer Dim slc, j, dele, a, b As Integer On Error Resume Next LastRow = ActiveSheet.UsedRange.Rows.Count For slc...是因为删除,他会上移,也可以使用DO 
    Sub classification()
    
    Dim LastRow, max_level As Integer
        Dim slc, j, dele, a, b As Integer
      
        On Error Resume Next
        LastRow = ActiveSheet.UsedRange.Rows.Count
    
        For slc = 1 To LastRow
    Line1:
        
            If Sheet1.Cells(slc, "e") = "FOLDERS" Then
            dele = slc + 1
                For j = slc + 1 To LastRow
                 If Range("A" & j) > Range("A" & j + 1) Then
                      dele = j
                      Exit For
                 End If
                Next j
                Range(Rows(slc), Rows(dele)).Delete
          GoTo Line1
            End If
        Next slc
    
    End Sub

    这里用了GOTO ,是因为删除的行,他会上移,也可以使用DO 

    展开全文
  • VBA_EXCEL删除行的方法

    2011-04-18 23:51:14
    v B A
  • 我需要选中比如A2开始到最右下角那个单元格 应该可以用range().delete 但是不知道如何表达最右下角那个单元格 另外 需要批量操作10张表的话 ,如何写? 比如 删除表1-表10的A2开始到最右下角单元格区域的全部内容
  • Sub test() Dim begin As Integer Dim endValue As Integer Dim jg As Integer begin = 3 '开始 ... jg = 1 '间隔 '千万不要以为是2,因为当第3删除后,第5已经变成了第4 Dim i As Int
    Sub test()
        Dim begin As Integer
        Dim endValue As Integer
        Dim jg As Integer
        
        begin = 3  '开始行
        endValue = 493 '结束行
        jg = 1 '间隔  '千万不要以为是2,因为当第3行被删除后,第5行已经变成了第4行
        Dim i As Integer
        
        For i = begin To endValue Step jg
            Range("A" & i).EntireRow.Delete
            
        Next i
    End Sub
    
    Private Sub Worksheet_Activate()
        Call test
    End Sub 


     注:Range("A1").EntireColumn.Delete 这样是删除A1整列

           Range("A1").EntireRow.Delete 这样是删除A1整行

            Range("A1").Delete 这是删除A1单元格  A2单元格会移上去

         上述命令就好像 你选中A1单元格后,右击选择 -》删除 ,在弹出对话框中有四个选项

       

    展开全文
  • 一、背景及需求:上一期介绍的由多个excel合成的Excel表如下所示,我们需要把有汉字的删除掉。 二、解决方案:同样的还是要用VBA来解决,操作前面已经介绍过了,我们直接上代码和注释(!!!在这里需要强调一下...

    一、背景及需求:上一期介绍的由多个excel合成的Excel表如下所示,我们需要把有汉字的行删删除掉。在这里插入图片描述
    二、解决方案:同样的还是要用VBA来解决,操作前面已经介绍过了,我们直接上代码和注释(!!!在这里需要强调一下:在运行代码前要选中需要删除的部分,比如A-F——1-2000,上下左后都要选,不能全选。由于程序会对选中的每个单元格进行索引,如果直接Ctrl+A全选或者只选择上下或者左右的话,程序会由于一直进行excel单元格的索引而进入无限索引,最终导致电脑卡死!!!):

    Sub wrj()
    Dim rng As Range '定义了一个range类型的变量 rng
    Dim InputRng As Range  '同上
    Dim DeleteRng As Range  '同上
    Dim DeleteStr As String  '字符串型数据
    xTitleId = "KutoolsforExcel" '选择区域弹窗的名字
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
    DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) '删除的行的关键字
    For Each rng In InputRng '遍历所有行
        If rng.Value = DeleteStr Then '如果有关键字和需要删除的关键字一样
            If DeleteRng Is Nothing Then
                Set DeleteRng = rng
            Else
                Set DeleteRng = Application.Union(DeleteRng, rng)
            End If
        End If
    Next
    DeleteRng.EntireRow.Delete '删除行
    End Sub
    

    三、摁下F5运行,即可得到结果。

    展开全文
  • VBA删除行纪录代码

    千次阅读 2013-01-08 09:58:13
    定义一个普通按钮   Private Sub CommandButton1_Click() ThisWorkbook.Sheets(1).Rows(1)....删除指定行,下面的纪录向上移 Sub Macro1()  Rows("11:11").Select  Selection.Delete Shift:=xlUp End Sub

    定义一个普通按钮

     

    Private Sub CommandButton1_Click()
    ThisWorkbook.Sheets(1).Rows(1).Delete
    End Sub

    删除指定行,下面的纪录向上移

    Sub Macro1()
         Rows("11:11").Select
         Selection.Delete Shift:=xlUp
    End Sub

     

    展开全文
  • Excel VBA删除行、列或单元格

    千次阅读 2020-07-21 01:59:16
    删除指定的对象。 expression.Delete 表达式 必需。该表达式返回上述对象之一。 应用于 Range 对象的 Delete 方法。 删除指定的对象。 expression.Delete(Shift) 表达式 必需。该表达式返回上述对象之一。...
  • 很多人忙于工作,疲于工作,烦于工作,不知道VBA是一道独特的风景,需要你的欣赏,需要你用心去开发。在我20多年的VBA实践中,越来越感到此处风景独到,此处风景独好,希望大家利用VBA,开垦VBA,让代码为你服务。我...
  • 使用word删除指定行

    千次阅读 2013-03-01 19:00:21
    Word中删除含有"-->"的时 , word2010中:点击“视图”--“宏”--“查看宏”,在“宏名”栏中输入一个英文名称,然后点击“创建”即可打开VBA编辑器 低版本:工具-〉宏-〉Visual Basic编辑器-〉双击The Document...
  • word、wps中使用vba删除所有表格指定列 处理word表格搞得人头大,找时间百度一波写了个函数处理标记删除的问题,根据这一套逻辑还可以实现很多功能,供各位参考。 要点: 双循环遍历所有表表头 InStr函数匹配具体...
  • VBA删除字符串中的换

    千次阅读 2020-08-14 10:35:14
    删除字符串中的换符: Replace(String, vbLf, "") Replace(String, vbCr, "") Replace(String, vbCrLf, "") Replace(String, vbNewLine, "") 有时候只用vbLf还不行,这四个统统替换,应该没有问题了。。。吧
  • 使用VBA脚本删除之后的所有。 ALT+F11打开“Visual Basic 编辑器”中。单击“插入”菜单,然后单击“模块”。 输入以下代码 Sub deleteRow() For i = 1500 To 1603 Step 1 Rows(i).Delete i = i + 1 ...
  • 删除当前 Sub deleteCurrentLine() Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.delete Unit:=wdCharacter, Count:=1 End Sub 选中当前 Sub ...
  • VBA 删除有颜色的

    2016-11-29 09:33:56
    Dim lecNum As Integer Dim lecturelastRow As Integer ... '将第二列是红色的行删除 If Cells(lecNum, 2).Interior.ColorIndex = 3 Then Rows(lecNum).Delete shift:=xlUp Exit For End If Next
  • VBA删除某些文件夹下的所有文件

    千次阅读 2020-11-29 16:04:58
    '这个vba代码是后处理的代码,加载阶段未接触上进行修正 Dim i, jj, kk As Integer Dim wb As Workbook For i = 1 To 10 str = Dir("C:\Users\DELL\Desktop\保存\*.*") 'str就是带有.xlsx的文件名 If str = "" T...
  • Excel VBA运用,删除行,循环For each next,rows.count计算,添加指定数据等, 打开Excel启用宏,然后按快捷键Ctrl+E
  • VBA-删除工作表中的空行

    千次阅读 2020-02-24 22:37:19
    删除工作表中的空行 若在表格中存在一部分空行,可以使用如下代码进行剔除; '未知数据的首行末行数 Sub 删除空行() Dim a As Integer Dim b As Integer Dim i As Integer a = Sheet1.UsedRange.Row b = a + ...
  • 如题,预计打算把黄色标示的全部一齐删除。 如果数据比较大达到几十万的话,循环寻找A列为空则比较低效。 若用SpecialCells函数把空白单元格全部找到而且选中,则不需要循环,速度较快。 Sub Test () dim blk, ...
  • vba 自动删除代码实例

    2011-10-28 23:12:00
    vba 自动删除代码实例vba 自动删除代码实例vba 自动删除代码实例vba 自动删除代码实例
  • Excel VBA 删除 表格中的图片

    千次阅读 2021-01-19 09:18:50
    那么,就需要将其中的文字、文本框、图片进行删除 Sub DeletePic() Dim p As Shape For Each p In Sheet1.Shapes If p.Type = 13 Then p.Delete End If Next End Sub 代码中的type可以参考如下, 在删除图片...
  • 一键删除特定名称的工作表
  • 一般被分享的PPT都是转换成PDF格式,想要借鉴的时候,需要通过一些工具转换,转换后,原版的logo,页眉页脚什么都需要删除,如果PPT页数很多,就难以删除,因此有这篇文章 第一阶段方案 借鉴了...
  • 学习资源:《Excel VBA从入门到进阶》第59集 by兰色幻想 本节学习Listview控件,它可以用多种视图方式显示项目的控件。由于其外形美观而且非常实用,所以使用频率很高。 Listview控件需要添加到控件工具箱才能插入和...
  • 然后就想到能不能直接删除表的操作就可以了,于是尝试通过vba的代码删除整个表。代码如下: Public Function deltable(app As Object) '在word文档当中删除文档中的第5个表 wdApp.Act...
  • 可以根据文件类型批量删除指定类型的文件,可以清理项目下不必要的文件,如:BIN,OBJ,SVN等等的文件
  • Sub 删表格红色() '每个表格只能有一个红色的,有多个只处理第一个 Dim tb As Table, cl As Cell For Each tb In ActiveDocument.Tables For Each cl In tb.Range.Cells If cl.Range.Font.Color = 255 ...
  • 要使用VBA,首先打开你的Excel电子表格,然后将Microsoft Visual Basic窗口打开,这样才能使用VBA代码!  方法是:在Excel中直接按下组合键Alt F11即可打开VB窗口,倘若VB...删除第8个单元格为空的,范围从1...
  • 代码如下: Sub july234() Dim i As Integer For Each Y In Worksheets X = Y.UsedRange.Rows.Count For i = 1 To X If Cells(i, "...).EntireRow.Delete '在A列中删除0所在 End If ...
  • Excel的多行或者多列删除

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,196
精华内容 1,678
关键字:

vba删除指定行