随笔分类 -  VBA

该文被密码保护。
posted @ 2018-05-26 16:55 bamboo233 阅读(2) 评论(0) 推荐(0)
摘要:Sub dd() MsgBox ActiveSheet.UsedRange.Address End Sub 更简单的方法:通过快捷键,选中空白行/列,然后删除行/列, 保存 ,OK! 阅读全文
posted @ 2017-05-11 17:20 bamboo233 阅读(984) 评论(0) 推荐(0)
摘要:已用于测试用例自动创建组使用要求:A列的格式如:X.X.X.X.X11.11.1.11.1.1.11.1.1.1.11.1.1.21.1.21.22会自动将1.1.1.1.1-1.1.1.1.X组合,1.1.1.1-1.1.1.X组合,1.1.1-1.1.X组合……VBA代码如下:其中把arr=[a 阅读全文
posted @ 2017-04-24 13:45 bamboo233 阅读(710) 评论(0) 推荐(0)
摘要:Sub Uniquedata()Dim rCell As Range'创建Dictionary对象Set d = CreateObject("Scripting.Dictionary")'遍历数据区域的单元格For Each rCell In Range("A2:I905")'判断单元格是否为空If 阅读全文
posted @ 2017-04-24 13:39 bamboo233 阅读(283) 评论(0) 推荐(0)