ClearComments方法

VBA常用小代码107：如何批量增加删除提取单元格批注诸君好，我们之前聊过如何将图片批量插入单元格批注中去：VBA常用小代码401：按名称一键将图片批量插入到单元格批注中今再聊下有关单元格批注的其它常用代码，也就是如何批量提取/删除/新增单元格批注等~1，批量提取单元格批注内容。

以下自定义函数可以提取指定单元格的批注内容。

但需要说明的是，由于函数的易失性都是根据单元格的值属性而重算的，当批注发生改变时，值并未改变，因此即便加上Application.Volatile，该函数也不会自动重算——也就是说，当批注内容发生改变后，需要重新运算该函数才可以得到新的批注内容哦。

Function GetComment(Rng As Range)Dim t As StringIf ment Is Nothing Then'判断rng是否包含批注t = ''Elset = ment.TextEnd IfGetComment = tEnd Function2，批量删除批注2.1，以下代码是将所选择单元格范围内的批注一股脑全部删除：Sub DelComment2()Dim Rng As RangeSet Rng = Application.InputBox('请选择删除批注的单元格范围。

Rng.ClearCommentsEnd Sub2.2，以下代码是有条件的删除指定单元格范围的批注，例如删除批注内容中包含“看见星光”的。

Sub DelComment()Dim Rng As Range, Cll As RangeSet Rng = Application.InputBox('请选择删除批注的单元格范围。

', Type:=8)Set Rng = Intersect(edRange, Rng)'Intersect避免选择整列时，造成无谓循环以致代码效率低下。

For Each Cll In RngIf Not ment Is Nothing Then'如果单元格有批注……If ment.T ext Like '*看见星光*' Then Cll.ClearComments'如果批注内容包含看见星光……则清除End IfNextEnd Sub3，批量新增批注比如将所选择的单元格区域的内容批量新增为批注。

jquery clear用法jQuery的clear方法没有直接的用法，因为clear不是jQuery的内置方法。

不过，我可以为你解释一些与清除相关的jQuery方法和技巧。

1. 清空表单字段：使用`val()`方法可以清空表单字段的值。

例如，`$('input[type="text"]').val('')`可以清空所有文本输入框的值。

2. 清除元素内容：使用`empty()`方法可以清除元素的内容。

例如，`$('.my-element').empty()`可以清除类名为"my-element"的元素的内容。

3. 移除元素：使用`remove()`方法可以从DOM中彻底移除元素及其所有相关的事件处理程序和数据。

例如，`$('.my-element').remove()`会从DOM中移除类名为"my-element"的元素。

4. 清除样式：使用`removeAttr()`方法可以移除元素的特定属性，例如清除元素的样式属性可以使用`removeAttr('style')`。

5. 清除事件处理程序：使用`off()`方法可以移除元素的特定事件处理程序。

例如，`$('.my-element').off('click')`可以移除类名为"my-element"的元素上的点击事件处理程序。

6. 清除数据：使用`removeData()`方法可以移除元素上存储的数据。

例如，`$('.my-element').removeData('key')`可以移除类名为"my-element"的元素上名为"key"的数据。

需要注意的是，上述方法都是jQuery中用于清除或移除元素、数据、事件处理程序等的常见方法。

名称
值类型
说明
返回 void
说明
1.2.12 Replace 在工作表中替换符合要求单元格值 void Worksheet.Replace(oldString, newString); 名称 值类型 说明
oldString string 要替换字符串（完全相等） newString string 替换字符串
返回 void
说明
1.2.3 ClearComments 清除所有批注 void Worksheet.ClearComments(); 名称 值类型 说明
返回 void
说明
1.2.4 Copy 清除所有批注 void Worksheet.Copy(sourcesheet); 名称 值类型 说明
sourcesheet Workbook 工作表源
freezedColumns int
返回 void
说明
1.2.7 GetSelectedRanges 获取当前光标停留的单元格 ArrayList Worksheet.GetSelectedRanges() 名称 值类型 说明
返回 System.Collections.ArrayList
说明
1.2.8 Move 获取当前光标停留的单元格 void Worksheet.Move(index) 名称 值类型 说明 index int 移动至索引序号
sourceColumn destRow destColumn
int int int
源列标 目的地行标 目的地列标
返回 void
说明
1.2.6 CopyConditionalFormatting 冻结窗格 void Worksheet.FreezePanes(cellName,freezedRows,freezedColumns) or (Row,Column,freezedRows,freezedColumns); +2 名称 值类 型 cellName freezedRows string 单元格名称;例：B2 int 冻结行(项标显示行数， 如果行数大于 freezedRows，超出行隐藏) 冻结列(左标显示列数， 如果列数大于 freezedColumns， 超出列隐 藏) Row Column int int 行标 列标 说明

EXCEL VBA：Range Clear的联合使用本文标签：Clear , EXCEL , Range , VBA , 使用 , 联合Excel中的Range对象，是用来引用区域数据的，而Range中的Clear属性，则是用来对区域数据进行清除的，下面我们看这三者之间的联合使用。

①清除单元格中的内容使用(ClearContents方法)Sub testClearContents()MsgBox "清除指定单元格区域中的内容"Worksheets(9).Range("B1:F8").ClearContentsEnd Sub如上代码功能，第9个工作表的B1:F8这个范围的数据，就被清除了。

②清除单元格中的格式使用(ClearFormats方法)Sub testClearFormats()MsgBox "清除指定单元格区域中的格式"Worksheets(9).Range("B1:F8").ClearFormatsEnd Sub如上代码功能，第9个工作表的B1:F8这个范围的单元格的格式，就被清除了。

③清除单元格中的批注使用(ClearComments方法)Sub testClearComments()MsgBox "清除指定单元格区域中的批注"Worksheets(9).Range("B1:F8").ClearCommentsEnd Sub如上代码功能，第9个工作表的B1:F8这个范围的单元格的批准，就被清除了。

④清除单元格中的全部，包括内容、格式和批注使用(Clear方法)Sub testClear()MsgBox "彻底清除指定单元格区域"Worksheets(9).Range("B1:F8").ClearEnd Sub如上代码功能，第9个工作表的B1:F8这个范围的单元格的内容、批注、格式等，有什么，就清除什么，全部都清除。