搞笑机械师

摘要： 首先贴出原文： http://club.excelhome.net/thread-1105587-1-1.html 1 ' Sub 仅存数据 Copyright@百度不到去谷歌 QQ80871835 2014/3/22 2 '功能 : 另存为不含宏的文件,并删除控件,条件格式,数据有效性,公式转数值 阅读全文

摘要： 可以参考如下帖子： http://club.excelhome.net/thread-917959-1-1.html 1 nm = Array("Sheet1", "Sheet2", "Sheet3") 2 For i = 0 To UBound(nm) 3 Sheets(nm(i)).Copy a 阅读全文

摘要： 首先要高亮显示原作者：http://www.360doc.com/content/17/0422/23/30583536_647746454.shtml 1 Sub setBlankRowColor() 2 Dim lngLastRow As Long 3 Dim i As Long 4 '获取工作 阅读全文