Excel自动建组

Excel自动建组已用于测试用例自动创建组使用要求: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

已用于测试用例自动创建组

使用要求:
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

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注