susan 发表于 2014-2-13 13:03:33

提示并清空单元区域

Sub 清空单元区域()
    If MsgBox("是否真的要清空数据?清除后将无法恢复", 1 + vbokNo) = vbOK Then
      Range("A1:B10,A15:B25").ClearContents
    End If
End Sub

cwx 发表于 2017-3-15 16:30:36

如果要将这段代码用按钮来执行的话，在免费版本可以实现吗？如果可以如何实现呢？
页: [1]
查看完整版本: 提示并清空单元区域