已用于测试用例自动创建组
使用要求:
A列的格式如:X.X.X.X.X
1
1.1
1.1.1
1.1.1.1
1.1.1.1.1
1.1.1.2
1.1.2
1.2
2
会自动将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=[a1:a425]中的425替换成需处理的范围
Sub aa()
Dim brr(5)
arr = [a1:a425]
ji = 0
brr(0) = 2
Range(Cells(brr(ji) + 1, 1), Cells(UBound(arr, 1), 1)).ClearOutline
For i = brr(0) To UBound(arr, 1)
sfji = Split(arr(i, 1), “.”)
If UBound(sfji) > ji Then
ji = UBound(sfji)
jiw = 0
brr(ji) = i
ElseIf UBound(sfji) < 0 Then
jiw = 1
ElseIf UBound(sfji) < ji Or jiw = 1 Then
If jiw = 1 Then
Range(Cells(brr(ji) + 1, 1), Cells(i – 1, 1)).Rows.Group
brr(ji) = i
jiw = 0
End If
Do While UBound(sfji) < ji
ji = ji – 1
Range(Cells(brr(ji) + 1, 1), Cells(i – 1, 1)).Rows.Group
brr(ji) = i
Loop
End If
Next
Do While ji > 0
ji = ji – 1
Range(Cells(brr(ji) + 1, 1), Cells(i – 1, 1)).Rows.Group
Loop
End Sub
转载于:https://www.cnblogs.com/music378/p/6756496.html
今天的文章Excel自动建组分享到此就结束了,感谢您的阅读。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/67710.html