EXCEL 如何使用宏清除指定列的数据

 

 

一楼：【未测试宏】

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.excelhome.net/thread-388519-1-1.html?jdfwkey=ljilu1