jmfs.net
当前位置:首页>>关于Excel vba 清除本sheet所有单元格内容和清除所有sh...的资料>>

Excel vba 清除本sheet所有单元格内容和清除所有sh...

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

Sheet1.Columns.Clear或Sheet1.Rows.Clear

在工作表代码区写上以下事件代码即可:private sub worksheet_change(byval target as range)if target.address = "$a$1" then if target 评论0 0 0

ActiveSheet.range("A1:A2").clear '清除内容和格式;ActiveSheet.range("A1:A2").clearContents '只清除内容;

Sub X() Dim i For i=1 To 32 Range("M" & (i-1)*25+4 ).Clear Next End Sub

Sub test() Application.ScreenUpdating = False Dim x%, y As String x = Cells(Rows.Count, 1).End(xlUp).Row y = InputBox("请输入地区") For i = 3 To x If Cells(i, 2) y Then Cells(i, 4) = "" Cells(i, 5) = "" Cells(i, 8) = "" Cells(i, 9) = "" Cells(i, 11) = "" End If Next Application.ScreenUpdating = True End Sub

(附件中有样本以供测试)指着工作表标签击右键,查看代码,出来VBE窗口点“插入”---“模块”左侧窗口找到“模块”,双击模块1,在代码窗口粘贴以下代码Sub 清除()For i = 2 To Worksheets.CountDim myrange As RangeSet myrange = Sheets(i).Range("A1:C20")For Each c In myrangec.ClearContentsNextNextEnd Sub

软件版本:Office2007 方法如下:1.下面单元格中存在填充底色、文字颜色、边框以及条件格式等等诸多格式:2.Alt+F11,在当前工作表中输入代码如下:3.F5执行代码,返回Excel,就看到所有格式都没有了:

用文本提取函数也行啊,非得要用VBA吗?用例如Left MID 函数都能实现你的要求.

应先将需要保护的单元格属性设置为锁定(选中单元格,右键菜单“单元格属性”,勾选“保护”标签页的“锁定”即可),而其它单元格不锁定.在vba中使用protect命令执行保护工作表,unprotect则撤销保护.

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