VBA ClearContents delete两者的区别

最新推荐文章于 2025-06-08 12:06:59 发布

原创最新推荐文章于 2025-06-08 12:06:59 发布 · 4.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#VBA

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

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

candebbs

关注关注

1
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

Excel+VBA+之快速上手

随风佳苑

12-31

1万+

第一章 VBA语言基础第一节标识符一．定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。二．命名规则 1）字母打头，由字母、数字和下划线组成，如 A987b_23Abc 2）字符长度小于 40，（Excel2002以上中文版等，可以用汉字且长度可达 254个字符） 3）不能与 VB保留关键字

VBA语句集大集合

07-20

VBA语句大集合，有利于大家学习，是大家多年总结的经验！

参与评论您还未登录，请先登录后发表或查看评论

VBA中ClearContents和Delete的区别

LinJing_2020的博客

03-23

1万+

ClearContents：清除数值且保留原格式 Delete：清除数值且将整行删除一、ClearContents效果二、Delete效果可以看到Delete的效果相当于右击单元格——删除——整行删除 ...

【vba】【excel】ClearContents和Clear的区别

weixin_61256014的博客

01-31

2518

With wb.Sheets("sheet名字").Range("I3:K20")ClearContents 只清除单元格内容。Clear 清除单元格，包括数据内容和格式。

VBA 基础语句

banmao420的博客

07-06

768

Destination:=Worksheets("Sheet2").Range("E5:H8") copy 后面_之前要加上空格。在同一个sheet下复制到另一处： Range("A1:a4").Copy Destination:=Range("E5:H8")从一个sheet复制到另一个sheet：Worksheets("Sheet1").Range("A1:a4").Copy _替换成cut 就是剪切粘贴了：Range("A1:a4").Cut Destination:=Range("E5:H8")

二、QTableWidget 类 clear() 和 clearContents() 的区别及程序崩溃原因分析

Mr-Gui的博客

09-04

3215

区分 QTableWidget 类的 clear() 和 clearContents() 的用法，以及可能由于这两个方法使用不当导致程序崩溃的原因分析

办公自动化Excel笔记-认识VBA（一）数据清空

Goonnoob的博客

08-29

2542

开发工具---VB编辑器---插入---模块---写代码即可。Sub 数据清空（）

16、私有和公有过程在VBA编程中的应用

w7x8y9z的博客

06-08

本文详细讲解了VBA编程中私有和公有过程的区别、应用场景以及如何在实际项目中合理使用它们。通过具体案例分析，介绍了模块化设计、错误处理、参数传递和函数返回值等优化技巧，帮助开发者提升代码的可维护性、安全性和效率。

VBA清除单元格数据

02-02

If LCase(cell.Value) Like "*delete*" Then ' 如果找到了包含"DELETE"(忽略大小写的区别对待） Rows(cell.Row).EntireRow.ClearContents ' ...那么就清楚当前这个关键词所在的那一整行的所有非格式内容 End If ...

Excel VBA编程技巧大全：从基础到精通的系统指南

Excel VBA是办公自动化领域中强大的编程工具，本文从基础入门到高级应用，系统地介绍了VBA编程的核心概念、对象模型应用、高级技巧及编程安全与优化。通过详细的章节划分，本文帮助读者掌握VBA变量、常量、数据类型...

Sub CompareAndCopyData() Dim wbSource As Workbook ' Excel1工作簿 Dim wbTarget As Workbook ' Excel2工作簿 Dim wsSource As Worksheet ' Excel1的工作表 Dim wsTarget As Worksheet ' Excel2的工作表 Dim lastRowSource As Long ' Excel1的最后行 Dim lastRowTarget As Long ' Excel2的最后行 Dim sourceValue As Variant Dim targetCell As Range Dim sheetIndex As Integer Dim i As Long Dim blankRows As Range ' 新增：用于收集空白行 Dim coveredRows As Object ' 用于记录已被覆盖的行号 ' 创建字典存储已覆盖行号 Set coveredRows = CreateObject("Scripting.Dictionary") ' 设置目标工作簿和工作表 Set wbTarget = ThisWorkbook ' 当前工作簿(Excel2) Set wsTarget = wbTarget.Sheets(1) ' 假设Excel2的数据在第一个Sheet Application.ScreenUpdating = False ' 关闭屏幕刷新提高性能 ' === 删除Excel2中为空白的行 === lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1 ' +1处理最后一行情况 Set blankRows = Nothing ' 初始化空白行集合 ' 遍历所有行收集空白行 For i = 1 To lastRowTarget ' 检查整行是否空白：CountA统计非空单元格数 If Application.WorksheetFunction.CountA(wsTarget.Rows(i)) = 0 Then If blankRows Is Nothing Then Set blankRows = wsTarget.Rows(i) Else Set blankRows = Union(blankRows, wsTarget.Rows(i)) End If End If Next i ' 一次性删除所有空白行（高效处理） If Not blankRows Is Nothing Then blankRows.Delete ' === 删除Excel2中C列含有/NC的行 === lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "C").End(xlUp).Row ' 从最后一行向上遍历（避免删除行后索引错乱） For i = lastRowTarget To 1 Step -1 ' 检查是否包含/NC（不区分大小写） If InStr(1, wsTarget.Cells(i, "C").Value, "/NC", vbTextCompare) > 0 Then wsTarget.Rows(i).Delete Shift:=xlUp ' 删除整行 End If Next i ' === 删除Excel2中A列含有_____的行 === lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row ' 从最后一行向上遍历（避免删除行后索引错乱） For i = lastRowTarget To 1 Step -1 ' 检查是否包含/NC（不区分大小写） If InStr(1, wsTarget.Cells(i, "A").Value, "_____", vbTextCompare) > 0 Then wsTarget.Rows(i).Delete Shift:=xlUp ' 删除整行 End If Next i ' === 删除Excel2中A列含有Bill Of Materials的行 === lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row ' 从最后一行向上遍历（避免删除行后索引错乱） For i = lastRowTarget To 1 Step -1 ' 检查是否包含/NC（不区分大小写） If InStr(1, wsTarget.Cells(i, "A").Value, "Bill Of Materials", vbTextCompare) > 0 Then wsTarget.Rows(i).Delete Shift:=xlUp ' 删除整行 End If Next i ' 重新获取删除后的最后一行 lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "C").End(xlUp).Row ' 打开源工作簿(Excel1) Set wbSource = Workbooks.Open("C:\Users\HKWli\Desktop\副本material list 20250526-----LMY.xlsx") ' 修改为实际路径 ' 获取Excel2的C列最后一行 ' lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "C").End(xlUp).Row ' 循环处理Excel1的7个Sheet For sheetIndex = 1 To 7 Set wsSource = wbSource.Sheets(sheetIndex) ' 获取当前Sheet的C列最后一行 lastRowSource = wsSource.Cells(wsSource.Rows.Count, "C").End(xlUp).Row ' 遍历Excel1当前Sheet的每一行 For i = 4 To lastRowSource sourceValue = wsSource.Cells(i, "C").Value ' 获取C列值 ' 在Excel2中查找匹配的C列值 Set targetCell = wsTarget.Range("C4:C" & lastRowTarget).Find( _ What:=sourceValue, _ LookIn:=xlValues, _ LookAt:=xlWhole) ' 如果找到匹配项 If Not targetCell Is Nothing Then Dim matchRow As Long matchRow = targetCell.Row ' 记录已覆盖行号 coveredRows(matchRow) = True ' 复制B-D列 wsSource.Range("B" & i & ":D" & i).Copy wsTarget.Range("B" & matchRow).PasteSpecial xlPasteValues ' 复制E-H列 wsSource.Range("E" & i & ":H" & i).Copy wsTarget.Range("G" & matchRow).PasteSpecial xlPasteValues End If Next i Next sheetIndex ' === 标记未被覆盖的行 === Dim rowIndex As Long For rowIndex = 4 To lastRowTarget If Not coveredRows.exists(rowIndex) Then wsTarget.Rows(rowIndex).Interior.Color = vbYellow ' 黄色填充 Else wsTarget.Rows(rowIndex).Interior.Pattern = xlNone ' 清除原有填充 End If Next rowIndex ' 清理资源 Application.ScreenUpdating = True ' 恢复屏幕刷新 Application.CutCopyMode = False wbSource.Close SaveChanges:=False Set wsSource = Nothing Set wsTarget = Nothing Set wbSource = Nothing Set wbTarget = Nothing MsgBox "数据对比与覆盖完成!" End Sub 增加一个功能，把EXCEL2中C列中相同的行的E列内容合并，F列相加（除E和F列别的列内容都相同），两行合并为一行

热门推荐

胡迪的博客

09-28

7万+

一、用VBA代码清除单元格里的内容 Range("a1:d10").ClearContents '清除A1:D10区域的公式/值 Range("a1:d10").Clear'全清(值,格式,批注) 代码如下： Sub clear() range("a1:d10").clearcontents end Sub 二、用VBA代码清除单元格的格式代码如下： Sub m() cell

VBA之Excel应用第四章第四节：单元格对象的Clear方法和Count属性

VBA语言専攻

06-06

888

VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第四章第四节：单元格对象的Clear方法和Count属性。

使用Range对象

m0_73450236的博客

05-02

1558

获得指定行/列的最后一个非空单元格，一般需要使用Range对象的End属性xlDirection 常量常量说明xlDown向下xlToRight向右xlToLeft向左xlUp向上。

VBA常用语法

学Java，找哪吒

01-14

1万+

最近接触了一下VBA编程，才知道Excel还能编程，而且还如此强大，真的是惊呆了，话不多说，先了解一下VBA常用的语法吧。 //高级for循环 Function deleteArrayByIndex(list) As String Dim item For Each item In list MsgBox item Next item End Function //获取当前sheet的名称和位置 sheetIndex = ActiveSheet.index sh

vba中clearcontents怎么使用

11-01

在VBA (Visual Basic for Applications) 中，`ClearContents` 方法用于清空选定区域或单个单元格中的内容，而不会影响单元格的格式设置、公式或批注。这是一个简单的语法示例： ```vba Sub ClearContentExample() Dim ws As Worksheet ' 定义工作表对象 Dim rng As Range ' 定义需要清空的范围 ' 首先选择你要操作的工作表和范围 Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称 Set rng = ws.Range("A1:C5") ' 替换为你想清空的具体单元格范围 ' 调用 ClearContents 方法清空内容 rng.ClearContents End Sub ``` 在这个例子中，`ws.Range("A1:C5").ClearContents` 将会清除 "Sheet1" 工作表 A1到C5区域内所有单元格的内容，但保留单元格本身的样式。如果你只想对单个单元格操作，可以直接使用 `.ClearContents`，比如 `ws.Cells(1, 1).ClearContents` 清楚第一行第一列的单元格内容。