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

vBA清除单元格数据

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

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

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软件教程专题来自:系统圣地

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

如下方法: 打开文件,插入表单控件按钮。 ALT+F11快捷键打开VBA代码编辑器,输入代码。 将表单控件按钮指定到宏,点击运行后效果如下。 输入的代码如下: Sub 运行代码1( ) Worksheets("sheet1").Range("a:b").select Selection.clear End sub ...

Sub Macro1() '替换#为空 Cells.Replace What:="#", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False '替换#为空 a = InputBox("保留几位:") Cells(4, 2) = Mid(Cell...

Sub 截取字符() For i = 1 To Application.WorksheetFunction.CountA(Range("A:A")) s = Cells(i, 1).Value If InStr(s, " ") Then s = Left(s, InStr(s, " ")) Cells(i, 1).Value = s End If NextEnd Sub

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

ActiveSheet.Cells.Interior.Colorindex = 0

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