Question

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

插入一图片，给图片指定宏，单击图片时，清除以下十个单元格B9、B14、B19、B24、B29、B35、B40、B45、B50、B55中的内容，不清除格式。

Answer 1

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

第二步，录入宏，把下面的代码复制粘贴，保存宏，命名为qingkong

第三步，插入图片，右键指定上qingkong这个宏即可。

Sub qingkong()

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

End Sub

Answer 2

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