ynkf.net
当前位置:首页 >> vBA清除单元格数据 >>

vBA清除单元格数据

1,用VBA删除A1:H18内的内容: Sub 清除内容() Range("A1:H18").Clear End Sub 2,删除整行内容: Range("A1").EntireRow.Clear 3,删除整列内容: Range("A1").EntireColumn.Clear 4,删除活动工作表的所有内容: ActiveSheet.Cells.Clear

区域.ClearContents 如:sheet1.range("A1:B1").ClearContents 类似的需求可以直接复制宏,再查看宏代码。 excel软件教程专题来自:系统圣地

Public Sub 清除本工作表() Worksheets("sheet1").UsedRange.ClearContentsEnd SubPublic Sub 清除所有表() Dim WS As Worksheet For Each WS In Worksheets WS.UsedRange.ClearContents NextEnd Sub

sub test() dim rng as range set rng=range("A1:C100") rng.clear'清除内容及格式 'rng.clearcontents'这个是只清除内容end sub

Sheets(4).Range("D7:D11").ClearContents

删除单元格内容:vba中输入:Range("A1").ClearContents,可清除单元格内容 删除单元格,下面的单元格向上:Range("A1").Delete Shift:=xlUp

最下面那行一定是总计吧? MyRow=Range("A65536").End(xlUp).Row -1 Sheet1.Range("B2:H" & MyRow).ClearContents

'运行以下过程,清除当前工作簿中所有工作表中小于12且大于30000的数据,只是清除单元格内容,运行前请备份文件,以免出错Sub DelCell() '若要删除单元格刚将C.ClearContents改为C.Delete即可 Dim C As Range Dim Sht As Worksheet For Each Sht In ...

假设你要查找的空白单元格在B列 Sub my() Dim i As Long For i = 1 To [A65536].End(xlUp).Row If Cells(i, 2) = "" Then '这里的2就是你的列数,可以自己替换 Rows(i & ":" & i).Delete Shift:=xlUp End If Next End Sub

ActiveSheet.Cells.Interior.Colorindex = 0

网站首页 | 网站地图
All rights reserved Powered by www.ynkf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com