用VBA 点击一个按钮清除sheet1（C3-O23行）和sheet2（从第二行开始）-sheet13（从第二行开始）中所有数据

点击清除有提示-是否要清空数据

第1个回答 2013-10-14

第一个可以这样写
Sheet1.Range("C3:O23").ClearContents ‘只删除内容，保留格式
或者
Sheet1.Range("C3:O23").Clear ’删除数据和格式

后面的自己参考咯

第2个回答 2013-10-14

Private Sub 按钮1_Click()
If MsgBox("确认要清除sheet1（C3-O23）和sheet2（从第二行开始）及sheet13（从第二行开始）中所有数据吗？", 1 + 48 + 256, "警告") = vbOK Then
Sheet1.Range("c3:o23") = ""
Sheet2.Rows("2:65536") = ""
Sheet13.Rows("2:65536") = ""
End If

End Sub本回答被提问者采纳

第3个回答 2013-10-14

代码在按钮下,自己复制吧!

追问

运行出错

追答

更新

相似回答

在excel中sheet1设置几个按扭,每个按扭分别可打开sheet2,sheet3、、答：简单选中sheet1中任意一表格右键--超链接--本文档中位置---选sheet2或sheet3--确认就可以了快去试试不懂就问给分哈哈

vb6保存程序中的数据到excel,点击按钮删除excel中的数据(除第一行的...答：这个要用Excel VBA的单元格属性来返回Excel文档中已使用的单元格行数，例如：1 A1:A10单元格中都有数据，使用End属性，Rw1=xlsheet.cells(1,1).End(xlDown).Row，Rw1返回的值是10 2 A1:A10单元格数据不连续，而且所使用的单元格区域不超过10行，使用UsedRange的属性，Rw1=xlsheet.UsedRange.Rows...

怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到...答：Private Sub CommandButton1_Click()n = 23 Do While Cells(2, 1) <> ""If Cells(n, 1) <> "" Then n = n + 1 Else:Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))Exit Do End If Loop End Sub ...

怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到...答：假设你数据在A2到F2里输入。任意插入一图形，右键点该图形，指定宏，新建。在出来的窗口中再Sub和End Sub之间粘贴如下代码：Dim i, j As Integer i = --Range("A2")For j = 1 To 6 Cells(i, j) = Cells(2, j)Next j 回到Excel，就有了你要的。

求VBA高手指教!想用vba做一个比较数据的工具,sheet1是比较源,sheet2是...答：'比较Sheet1和Sheet2的A列从1到10行是否行对齐是相同的，如果相同放到Sheet3中 dim aCollection as collection,bCollection as collection set acollection = new collection set bcollection = new collection dim i as integer Sheet("sheet1").select for i=1 to 10 acollection.add Range("A"...

vba在sheet1筛选后,将结果复制sheet2中,怎么解决答：先将sheet2 复制到sheet3 假定客户名都在第一列在sheet3 中运行下面程序（工具——宏——visual basic编辑器)Sub kk()Dim ints As Integer Dim ragc As Range Dim stofind As String,firadd As String Dim wors As Worksheet Application.ScreenUpdating = False Set wors = Worksheets("sheet1...

大家正在搜

js点击删除按钮删除当前行 sheet1复制到sheet2 清除格式按钮在哪里清除按钮的click事件代码怎么清除表格里面的筛选按钮 JavaScript删除按钮清空按钮删除按钮的功能实现输入框清空按钮