EXCEL 宏代码求助（删除指定单元格内容）

EXCEL 宏代码求助（删除指定单元格内容）

第一步，把文件保存为 xlsm格式

第二步，录入宏，把下面的代码复制粘贴，保存宏，命名为qingkong
第三步，插入图片，右键指定上qingkong这个宏即可。


Sub qingkong()
Range("B9,B14,B19,B24,B29,B35,B40,B45,B50,B55").ClearContents
End Sub

Sub 宏1()
    Dim R(1 To 10) As String
    Dim i As Integer
    R(1) = "B9"
    R(2) = "B14"
    R(3) = "B19"
    R(4) = "B24"
    R(5) = "B29"
    R(6) = "B35"
    R(7) = "B40"
    R(8) = "B45"
    R(9) = "B50"
    R(10) = "B55"
    For i = 1 To 10
        Range(R(i)).ClearContents
    Next
End Sub