随笔分类 - VBA
摘要:Sub dd() MsgBox ActiveSheet.UsedRange.Address End Sub 更简单的方法:通过快捷键,选中空白行/列,然后删除行/列, 保存 ,OK!
阅读全文
摘要:已用于测试用例自动创建组使用要求: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
阅读全文
摘要:Sub Uniquedata()Dim rCell As Range'创建Dictionary对象Set d = CreateObject("Scripting.Dictionary")'遍历数据区域的单元格For Each rCell In Range("A2:I905")'判断单元格是否为空If
阅读全文

浙公网安备 33010602011771号