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就會跟著改變，如有問題請追問。