2023年12月23日发(作者：)

宏删除删除ECEL表格行列

篇一：Excel删除A列空行宏代码

Sub 删除A列空行()

Columns(1).SpecialCells(xlCellTypeBlanks). End Sub

篇二：Excel工作表到时自动删除公式的宏代码

用宏删除EXCEL中的公式

Private Sub Workbook_Open()

if date>=-1-1# then

For i = 1 To

Sheets(i).Activate

pecial xlPasteValues

Next i

Sheets(1).Activate

end if

Option Explicit

Sub RmvMacros()

Dim wbk As Workbook

Dim str As String

pyAs "D:另存备份.xls"

str = & "另存备份.xls" '要删除宏的文件名

Events = False '禁止在打开时触发事件

Set wbk = (str)

RemoveAllMacros wbk '调用RemoveAllMacros删除宏代码

savechanges:=True

Events = True

Sub RemoveAllMacros(wbk As Workbook) '参数wbk为要删除宏的工作簿

Dim i As Long

Dim vbc As VBComponent

For Each vbc In onents '遍历wbk工作簿的每一个模块

If = vbext_ct_Document Then '如果是Excel对象的模块,则清除其中的代码,否则删除整个模块

Lines 1,

fLines

Else

vbc

End If

Next vbc

Sub ListAllCodeModule()

Dim strVBCmpType As String

Dim vbc As VBComponent

"名称类型 代码行数"

For Each vbc In onents

With vbc

Select Case .Type

Case vbext_ct_Document

strVBCmpType = "Excel 对象"

Case vbext_ct_StdModule

strVBCmpType = "模块"

Case vbext_ct_MSForm

strVBCmpType = "窗体"

Case vbext_ct_ClassModule

strVBCmpType = "类模块"

End Select

.Name & Space(20 - Len(.Name)),

strVBCmpType, .fLines

End With

Next vbc

用宏代码清除excel2000文档中的宏代码、部分控件

'removeExcelMacro("",Array("CheckBox1","TextBox1","ListBox"))

'

'直接删除目标文件的宏代码和控件(可选择保留的控件),Excel文件名称、要删除的控件名称数组

Public Static Function removeExcelMacro(targetExcel As

String, killOleObjectType As Variant) As Boolean

On Error GoTo ErrHand

Dim i, j, n As Byte

Dim vbeComp As New VBComponents

Dim vbaObje As OLEObject

removeExcelMacro = False

Set vbeComp =

oks(targetExcel).onents

n =

For i = 1 To n

If i > Then Exit For

If vbeComp(i).Type = 100 Then'100:

xl_Document_Type(Include Workbook , Worksheet) '删除代码

If vbeComp(i).fLines > 0 Then

vbeComp(i).Lines 1,

vbeComp(i).fLines

'删除控件

vbeComp(i).Activate

If killOleObjectType(0) <> "" Then

For Each vbaObje In ects

For j = 0 To UBound(killOleObjectType)

If UCa(来自: 小龙 文档 网:宏删除删除excel表格行列)se(Split(, ".")(1)) =

UCase(killOleObjectType(j)) Then

:

End If

Next

Next

End If

Else

'删除整个模块

vbeComp(i)

i = i - 1

End If

Next

removeExcelMacro = True

Exit Function

ErrHand:

MsgBox ption & vbCrLf & vbCrLf & "请与XXX联系！", vbOKOnly + vbCritical End Function

删除重复值

Sub 删除列中重复值()

Dim strSheetName As String, strColumnLetter As String

strSheetName = "Sheet1" ' 删除工作表中的重复行

strColumnLetter = "A" ' 以 A 列中的重复项作为删除条件

Dim strColumnRange As String

Dim rngCurrentCell As Range

Dim rngNextCell As Range

strColumnRange = strColumnLetter & "1"代表range(“a1”)

Worksheets(strSheetName).Range(strColumnRange).Sort _

Key1:=Worksheets(strSheetName).Range(strColumnRange)

Set rngCurrentCell =

Worksheets(strSheetName).Range(strColumnRange) Do

While Not IsEmpty(rngCurrentCell)

Set rngNextCell = (1, 0)

If = Then

End If

Set rngCurrentCell = rngNextCell

Loop

End Sub

删除活动工作簿中的所有宏代码

Sub MacroDel()

Dim vbcCom, Vbc

Set vbcCom = onents

For Each Vbc In vbcCom

If Like "Sheet*" Or Like "This*"

Lines 1,

fLinesElse

(Vbc)

End If

Next Vbc

End Sub

'这个代码可以删除工作表

Private Sub Workbook_Open() '工作簿打开就执行

yAlerts = False '关闭提示 Dim datee

As Date定义datee '为日期

datee = #9/19/2006# '为datee '赋值

If Date > datee Then '如果当前日期大于设定的日期

("Sheet3").Delete '删除表sheets3

'保存工作簿

'推出工作簿

End If

End Sub

'("Sheet3").Delete

'再给一个过期则删除工作簿 (回收站都找不到)

Private Sub Workbook_Open()

yAlerts = False

Dim datee As Date

datee = #9/19/2006#

If Date > datee Then

xlReadOnly Kill

me

False

End If

End Sub

'再给一个过期则自动删除宏代码之文件

Private Sub Workbook_Open()

yAlerts = False

Dim datee As Date

datee = #9/19/2006#

If Date > datee Then

Dim str, strJunk As String

str = (1).FullName Close #1

Open str For Binary As #1

strJunk = Space(LOF(1))

Put #1, , strJunk

= True

End If

End Sub

篇三：EXCEL中设置一键清除按钮

EXCEL中设置宏实现一键清除数据

最佳答案

点击窗体上的按钮图标后，在表格中画出一个按钮，在弹出的宏对话框中选择新建，然后录入下列代码： (连续区域)

Sub清除内容()

Range("c4:f20").ClearContents

End Sub

回到表格中，点击按钮就OK啦。

(不连续区域)

Sub 清除内容()

Range("c3:d7, f3:g7").ClearContents

End Sub

(语文150分)

Sub 清除姓名()

Range("b3:b58,

e3:e58,h3:h58,k3:k58,n3:n58").ClearContents

End Sub

Sub 清除成绩()

Range("c3:c58,

f3:f58,i3:i58,l3:l58,o3:o58").ClearContents

End Sub

Sub 清除内容()

Range("b89:o91,

b94:o96,b99:o101,b104:o106").ClearContents

End Sub

(其他科100分)

Sub 清除姓名()

Range("b3:b52,

e3:e52,h3:h52,k3:k52,n3:n52").ClearContents

End Sub

Sub 清除成绩()

Range("c3:c52,

f3:f52,i3:i52,l3:l52,o3:o52").ClearContents

End Sub

Sub 清除内容()

Range("b92:o94,

b97:o99,b102:o104,b107:o109").ClearContents