一楼:【未测试宏】 sub kk() range("b8:b26").clear range("e8:e26").clear range("g8:i26").clear end sub 6688;谢谢! 在我这个表中不能用,看看为什么?其他表可以。 没说清,合并的单元格部分这个宏,不能运行。 二楼:如果只是清除当前工作表则:【测试过,正确】 Sub 清除数据_Click() Range("D3:J4,D5:G6,I5:J6,B8:H29").ClearContents End Sub 比如: Sub 删除B到H列数据_Click() Range("B1:H60000").ClearContents End Sub 三楼:如果其它工作表格式一样,但不包含清除"数据库",代码: Private Sub 清除数据_Click() Dim x As Worksheet For Each x In Worksheets If x.Name <> "数据库" Then x.Range("D3:J4,D5:G6,I5:J6,B8:H29").ClearContents End If Next End Sub 梦想成真:谢谢!第二方案成功。:handshake 本帖转自:http://club./thread-388519-1-1.html?jdfwkey=ljilu1
|
|