`
cbbs
  • 浏览: 38867 次
  • 来自: ...
文章分类
社区版块
存档分类
最新评论

VBA ClearContents delete两者的区别

VBA 
阅读更多

使用了ClearContents清除单元格内容时,有时再统计单元格有内容的行数,会发现刚清除了的单元格也会列入统计之中,造成统计结果不对,而delete就不会了!

分享到:
评论

相关推荐

    Excel VBA_ADO+SQL实例集锦.doc.txt

    Range("a:h").ClearContents Range("a1:h1") = Array("编号", "品名", "规格", "产地", "单位", "件装", "属性", "计划") ‘表头 另外赋值 [a2].CopyFromRecordset yy Set yy = Nothing Set x = Nothing End ...

    vba连接sql server再联oraclep实例.xlsm

    vba连接sql server再联oracle实例读取到EXCLE表中中,带where 条件 Private Sub CommandButton1_Click() Dim i, j, k, r, b As Long Dim str '固定语法 Dim cnn As Object, sql$, Mypath$, MyFile$, n% Set cnn ...

    信息科科室安全检查记录表(vba插入工作日记录)

    Range("A3:F25").ClearContents a = 3 monthDays = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) For i = 1 To monthDays date1 = Year(Now()) & "-" & Month(Now()) & "-" & i If workDay(date1) = "○...

    批量合并表格sheet的代码

    Sheet1.UsedRange.Offset(1).ClearContents '当前表已用区域整体下移1行 p = ThisWorkbook.Path & "\" f = Dir(p & "*.xls") Do While Len(f) If f <> ThisWorkbook.Name Then With workbooks.open(p & f) '...

    EXCEL获取文件名并重命名工具

    测试wps有效,必须要安装VBA; Sub button_getname() Application.ScreenUpdating = False Set fso = CreateObject("scripting.filesystemobject") Set ff = fso.getfolder(ThisWorkbook.Path) 'ActiveSheet....

    照片批量自动插入

    批量照片自动插入不再是难题,一键全插入VBA代码如下: Option Explicit Sub InsertPicture() Dim MyShape As Shape Dim r As Integer Dim c As Integer Dim PicPath As String Dim Picrng As Range With ...

    工程表票宏代码

    .Range("F7:F24").ClearContents: .Range("H7:H24").ClearContents: .Range("L7:L24").ClearContents: .Range("M7:M24").ClearContents End With Set wshshell = CreateObject("Wscript.shell") wshshell.popup ...

    单元格插入毫秒

    .Range(.Cells(1, "E"), .Cells(Hx, Lx)).ClearContents .Range("E1") = "权限设置区" .Range("E1:IV2").HorizontalAlignment = 1 Lx = 5 For Each Sh In Worksheets If Not Sh.Name = Sheet1.Name Then ....

    Delphi Excel 操作大全

    ExcelApp.ActiveSheet.Cells[1,4].ClearContents; 13) 设置第一行字体属性:ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书'; ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelApp.ActiveSheet.Rows[1]...

    ACReport中国式报表控件2011(Ver2.3)

    就如Anycell Report的名称那样,灵活强大的表格功能一直是AC Report区别于其它软件或控件最显著的特征之一,AC Report 表格取消了传统表格概念中“列”的概念,每一行上的单元格数量可以不等,且可以自由活动,勿须...

    TscExcelExport 3.6 full source

    - Added new group options properties : ClearContents, BorderRange, IntervalFontSize - New events for exporting without dataset : OnGotoFirstRecord, OnGotoNextRecord Version 2.81 - Created a package...

Global site tag (gtag.js) - Google Analytics