vba中怎么清空工作表中的数据？

首先我们打开一个工作样表作为例子。

excel中使用vba清除工作表内容

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub ddt()

'ActiveCell.CurrentRegion.Select

'Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).Select

Range("A1").ClearContents '清除活动工作表上单元格A1中的内容

Selection.ClearContents '清除选定区域内容

Range("A1:D4").Clear

End Sub

excel中使用vba清除工作表内容

前两句代码是选择有数据内容的单元格，我做了注释标签，在代码中不运行。这里我先做一个简单的实例。使用range函数并选择了a1单元格，然后使用clearcontents命令来清除掉a1单元格中的内容。

excel中使用vba清除工作表内容

第二行代码是指选取单元格区域后运行宏，则清除掉所选区域的内容。

excel中使用vba清除工作表内容

最后一行代码更明晰，首先设定单元格区域为a1：d4，然后使用clear命令清除单元格包括格式在内的所有数据，这也是clear和clearcontents的区别。

excel中使用vba清除工作表内容

实际 *** 作一下，我现在把单元格中的字体修改为华文琥珀，并将字号设置为72，这时候单元格格式发生了变化，我使用clearcontents对单元格进行清除内容并不会更改单元格的格式。

excel中使用vba清除工作表内容

而使用clear命令清除内容，单元格格式会恢复成默认值。

excel中使用vba清除工作表内容

如何用excel vba一次删除工作簿中的除第一张之外的所有工作表

没分哟，加分

For i = 2 To 10

Sheets(i).Select

ActiveWindow.SelectedSheets.Delete

Next i

如果有10个表的话，最好是前面加一句错误处理。

用Excel VBA如何合并同一资料夹下的所有工作簿的第一张工作表?

可以在Excel表格中用下面的VBA程式实现：

Sub Test() '开启当前目录下档案，将Sheet1资讯复制到汇总表上

Dim f$

Dim n&

Mypath = ThisWorkbook.Path &"\"

f = Dir(Mypath &"*.xls*")

Do While f >" "

n = n + 1

Workbooks.Open Mypath &f

Set c = ActiveWorkbook

arr=sheet1.UsedRange

c.Close

Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr

n=n+Ubound(arr,1)

f = Dir

Loop

End Sub

我有50个Excel工作簿，需要把每个工作簿中的sheet2工作表删除，请问如何一次性删除？

如果这些档案在同一资料夹下,例如 d:\dir\

可以用vba完成.

执行excel>按住alt依次按f11,i,m

贴上下面的程式码后按f5即可实现你的想法.

Sub 删除sheet2()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

p = "d:\dir\"

f = Dir(p &"*.xls")

Do While f <>""

Workbooks.Open p &f

ActiveWorkbook.Sheets("Sheet2").Delete

ActiveWorkbook.Save

ActiveWindow.Close

f = Dir

Loop

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

重要提醒:sheet删除后无法恢复,请 *** 作前确定自己要这么做.

怎么删除工作簿中的一个工作表？

点选下方工作表标签,选定你要删除的工作表.然后....

1.右键点要删除的工作表的标签,选删除,不可恢复.

2.或者,点编缉-->删除工作表,删除当前显示的工作表.

如何用vba语言得到某工作簿中工作表的个数？

worksheets.count

这个语句可以统计工作表的个数，但是不包括独立的工作图表（charts）

要统计所有工作表，图表，用

sheets.count

如何快速删除工作簿里多个工作表

按著ctrl键，然后再依次点选要删除的工作表的表名，选完后，在任意一个被选中的工作表表名上右键点选，选择删除工作表即可。

VBA删除已开启工作簿，或者说如何用VBA删除自己正在开启的工作簿？

Private Sub Workbook_Open()

Const ForReading = 1, ForWriting = 2

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("D:\delfile.vbs", ForWriting, True)

f.WriteLine "Set fso = CreateObject(" &Chr(34) &"Scripting.FileSystemObject" &Chr(34) &")"

f.WriteLine "A =" &Chr(34) &ActiveWorkbook.Path &"\" &ActiveWorkbook.Name &Chr(34)

f.WriteLine "fso.GetFile(A).Delete (True)"

f.WriteLine "fso.GetFile(WScript.ScriptFullName).Delete (True)"

f.Close

ActiveWorkbook.Close

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

CreateObject("WScript.Shell").Run "D:\delfile.vbs"

End Sub

工作簿中所有工作表的名字前面自动添加了“ .xls”，如何清除？

你在控制面板-资料夹选项-察看 里面选择隐藏已知型别档案的副档名就可以了.

如何用vba把多个工作簿的内容合并到一个工作表

---