vba清空表格数据库数据
‘壹’ 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删除指定表的全部数据
用range("A2:B4").clearcontents就可以了。这是指定区域的。
也可以删除全部sheet1.cells.clearcontents
‘叁’ VBA中如何一次性清空窗体数据和添加表格当中的数据
看来你写VBA没问题，我就不多说基本操作了。
要实现你的要求。你只需要给那个“清除”键的Click事件写一段代码，要清除Excel表中的数据只需要一句：
activesheet.cells.clear
要清除窗体中的数据，这需要有点前提条件，假设你对控件的命名很有规则，比如你全部是使用的TextBox来完成数据输入的，而这些TextBox控件的命名都是“txt***”，那么清除这些控件中内容就用以下代码：
Dim ct As Control
For Each ct In Me.Controls
if left(ct.name,3)="txt" then ct.value=""
Next
‘肆’ 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
‘伍’ VBA 删除access数据库记录
删除/插入 (delete/insert) 利用的是CurrentDb.Execute(stsql)。
代码如下：
[plain] view plain
'拼写删除指定PR Number的SQL文
stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" & pr_nr & "'"
'执行SQL文
CurrentDb.Execute (stSql)
‘陆’ 需要使用VBA对所有表格进行删除某区域内容的操作
检查一下你的 Excel 的“文件”->“选项”->“信任中心”->“信任中心设置”->“宏设置”，看看是不是禁用了所有的宏。若是，修改成启用即可。
仅针对你的这段代码，修改如下：
Sub Delete1()
Dim LastColum as Integer, LastRow as Long
With Sheet1
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
LastColumn = .Cells.SpecialCells(xlCellTypeLastCell).Column
.Range(.Cells(2,7), .Cells(LastRow, LastColumn)).Clear
End With
End Sub
或者不用 LastRow、LastColumn 作为中间变量那么麻烦：
With Sheet1
.Range(.Cells(2,7), .Cells.SpecialCells(xlCellTypeLastCell)).Clear
End With
注意：使用 With……End With 块，一定要注意 "." 符号的运用。
‘柒’ vba 删除数据库
因为你说的太笼统了，所以只能这样了
Sub ss()
'access
'Db = "d:\zcgl.mdb"
' connstr = "DBQ=" + Db + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
' Set conn = CreateObject("ADODB.Connection")
' conn.Open connstr
'删除sql对应的行
'conn.Execute "delete from grjbxx00 where 订单编号=" & Cells(1, 1) & "and 产品编号=" & Cells(2, 1)
'sql2000,你需要修改 数据库名，用户名，密码，数据表名
ConnectionString = "Driver={SQL Server};Server=(local);Datebase=dbefan;Uid=efan;Pwd=123456;"
Set cnn = server.CreateObject("ADODB.Connection")
cnn.Open ConnectionString
'删除sql对应的行,grjbxx00要修改
cnn.Execute "delete from grjbxx00 where 订单编号=" & Cells(1, 1) & "and 产品编号=" & Cells(2, 1)
End Sub
‘捌’ vba 清空excel内容
在excel中，按Alt+F11，在左侧导航栏点击右键→插入→模块。在右侧输入代码：
Sub 清除()
Sheets(2).Cells.ClearContents
End Sub
‘玖’ 在Excel表中，如何使用vba编码，将一列的值进行清空
假设A1是设置了数据有效性的单元格，辅助列在G列，要把A1的值放在G1可用下面代码： Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then [G1] = [A1] '里面加粗的1表示第一列即A列，指设置了有效性的所在列
End Sub
在当前工作表名称处点右键，查看代码，然后粘贴上面代码就OK了。只要A1的值改变G1就会跟着改变，如有问题请追问。