精华内容
下载资源
问答
  • vba 删除行

    千次阅读 2015-11-08 12:27:04
    Public Function ddd()  For i = 100 To 1 Step -1  ' For i = 1 To 100 ... ' Range("b" & i).Value = "单号"  Range(Rows(i), Rows(i)).Delete  End If  ' MsgBox "444" Next End Function
    Public Function ddd()
      For i = 100 To 1 Step -1
     ' For i = 1 To 100
     ' Range("c2").Value = (10 Mod 2)
    ' Range("b1:z111").Value = "hello"
    ' Rows("5:10").Delete
     Range("a" & i).Value = i
     Range("c" & i).Value = ""
     ' Range("b1:z100").Valuecc = "hello world"
         If i Mod 2 <> 0 Then
            ' Range("b" & i).Value = "单号行"
           Range(Rows(i), Rows(i)).Delete
         End If
     '  MsgBox "444"
    Next
    End Function
    展开全文
  • 删除空余: Dim LastRow As Long, r As Long LastRow = ActiveSheet.UsedRange.Rows.Count LastRow = LastRow + ActiveSheet.UsedRange.Row -1 For r = LastRow To 1 Step -1 If WorksheetFunction.CountA(Rows(r)...
  • VBA删除表格最后一

    2016-04-18 10:27:00
    Sub 删除最后一() If MsgBox("要为所有表格添加列吗?", vbYesNo + vbQuestion) = vbYes Then For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Rows.Last.Delete Next MsgBox ("完成") ...
    Sub 删除最后一行()
    If MsgBox("要为所有表格添加列吗?", vbYesNo + vbQuestion) = vbYes Then
    For i = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(i).Rows.Last.Delete
    Next
    MsgBox ("完成")
    Else
    MsgBox ("任务取消")
    End If
    End Sub

     

    转载于:https://www.cnblogs.com/zjwia/p/5403461.html

    展开全文
  • 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

    Dim lecNum As Integer
    Dim lecturelastRow As Integer
    lecturelastRow = ActiveWorkbook.Sheets("sheeet1").UsedRange.Rows.Count
    For lecNum = 0 To lecturelastRow

    '将第二列是红色的行删除
    If Cells(lecNum, 2).Interior.ColorIndex = 3 Then
    Rows(lecNum).Delete shift:=xlUp
    Exit For
    End If
    Next
    展开全文
  • 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编程中常用的简单“积木”过程代码,NO.136-NO.138,内容是:插入多行表格的方法、如何删除工作表中的空白删除重复数据等内容。VBA过程代码136:如何在工作表中一次插入多行...
  • 大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,NO.136-NO.138,内容是:插入多行表格的方法、如何删除工作表中的空白删除重复数据等内容。VBA过程代码136:如何在工作表中一次插入多行...
  • 删除指定的对象。 expression.Delete 表达式 必需。该表达式返回上述对象之一。 应用于 Range 对象的 Delete 方法。 删除指定的对象。 expression.Delete(Shift) 表达式 必需。该表达式返回上述对象之一。...
  • 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
  • '工作表中单元格,与列的插入与删除 Sub 插入() Rows(2).Insert End Sub Sub 隔行插入() Dim r% Do r = r + 2 Rows(r).Insert Loop Until Cells(r + 1, 1) = "" End Sub Sub 删除() Row.....
  • VBA高手直接删除指定条件.xls
  • 源数据及要求:删除黄忠和庞统的各一重复数据,两个孙权因为班级不同,保留数据结果展示:代码解析:Sub DeleteSameRow1()'删除所有重复,保留唯一值Dim LastRow As LongDim i, k, n As LongDim arr, brr()Dim ...
  • VBA EXCEL删除行的方法

    2007-09-08 16:48:00
    隔r 删除d 输入 行号--行号 d  =  TxtDel.Text  -   1 x  =  TxtStart.Text  +   CInt (r) y  =  TxtEnd.Text For  i  =  x  To  y  Step  r   '  ActiveWorkbook.Worksheets("sheetName...
  • VBA_EXCEL删除行的方法

    2011-04-18 23:51:14
    v B A
  • 做了一个简单的Excel文件,有一些vba脚本,如果用户随便删除整行/整列会出错。所以,想在Worksheet_Change事件判断当用户进行删除整行或整列操作时,弹一个yes/no框,若用户选择no,则终止删除操作。谢谢。
  • word中批量缩小图片,删除行,删除重复图片vba代码 好几年不打印微博了,复制后排了个版,改进了以前写的几个函数。 Sub sizepic() ' ' 缩小微博图片 ' ' Dim n '图片个数 On Error Resume Next '忽略错误 For...
  • VBA_EXCEL删 除的方法+Excel修复.doc
  • 我的表看起来像这样我希望删除每一,如果列“从设备”和“到设备”开始用G或C(或者,更具体地说,如果“from”和“to”列以S开头,则保留整行),我的代码如下:Sub FilterData2()Dim rcount As LongWith Sheet3r...
  • 这部分的代码是这样的: 如果条件满足,则删除表table1包含满Lib的记录,否则向表table2添加记录Lib If result Then Do Until Rst1.EOF ...VBA向表添加和删除记录的代码怎么写。。。。先谢过。。
  • 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
  • VBA - 删除第一单元格为空的所有

    千次阅读 2015-04-02 13:53:24
    VBA删除第一单元格为空的所有
  • Excel VBA运用,删除行,循环For each next,rows.count计算,添加指定数据等, 打开Excel启用宏,然后按快捷键Ctrl+E
  • VBA】一代码删除所有空行

    万次阅读 2018-11-07 11:46:19
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 本人的小程序《文本整理器》,还有在线文本整理器wbzlq.com,欢迎使用。 
  • 删除字符串中的换符: Replace(String, vbLf, "") Replace(String, vbCr, "") Replace(String, vbCrLf, "") Replace(String, vbNewLine, "") 有时候只用vbLf还不行,这四个统统替换,应该没有问题了。。。吧
  • vba 删除指定range

    千次阅读 2011-04-07 20:16:00
    Sub DeleteCellRowColumn()  '删除活动单元格,下方单元格上移  ActiveCell.Delete Shift:=xlUp  '删除选定的区域,右方单元格左移  Selection.Delete Shift:=xlToLeft  ' 删除行或...
  • 目的:判断F列的数值,从第6开始,删除F列中数值为“#VALUE!”的整行(F列的内容集中分为两块,第一块是数字,第二块是“#VALUE!”,以后皆为空白) 我的程序是: Sub 调试6() Dim i As Integer Dim m As ...
  • excel vba根据条件删除

    千次阅读 2009-10-16 14:42:27
    Sub 删除() Dim R As Long'For R = 1 To Range("A65536").End(xlUp).Row Step 1For R = 1 To Range("A65536").End(xlUp).Row Step 1 If InStr(Range("A" &amp; R), "=...
  • 我的意思是如果我做一个窗体界面的话,可以添加一个删除按钮,当选中某一条记录的时候,单击删除按钮可以调用ADO或者用SQL删除掉数据库中的记录,但是我现在的数据显示界面是EXCEL界面,在EXCEL中提供了删除的...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 300
精华内容 120
关键字:

vba删除行