[已解决]解释下代码？

dadasdas

Sub aaa()
    Dim reg, n, st1, st2, arr, i&
    n = Range("e65536").End(3).Row
    If n < 5 Then Exit Sub
    n = n + 3 - Val(Right(Range("e" & n), 1))
    arr = Range("e5:e" & n)
    Set reg = CreateObject("vbscript.regexp")
    With reg
        .Global = True
        .Pattern = "\d+($|\n)"
        For i = 1 To UBound(arr)
            If arr(i, 1) <> "" Then
            st1 = .Replace(arr(i, 1), "")
                st2 = .Execute(arr(i, 1))(0)
                n = Val(st2)
            Else
                n = n + 1
                arr(i, 1) = st1 & Format(n, WorksheetFunction.Rept("0", Len(st2)))
            End If
        Next
    End With
    [e5].Resize(UBound(arr)) = arr
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-25 22:33

st1存储的是非空单元格内除去数字后剩下的字符串前缀。
st2存储的是非空单元格内最后的数字序号

跳转到最佳答案楼层

hwc2ycy

这个用的正则表达式，你看看结果应该就会明白的。

hwc2ycy

应该是把最后的数字全部替换掉。

hwc2ycy

dadasdas

hwc2ycy 发表于 2013-3-25 22:17

能不能解释下代码？

hwc2ycy

1. Sub aaa()
   
2.     Dim reg, n, st1, st2, arr, i&
   
3.     n = Range("e65536").End(3).Row
   
4.     If n < 5 Then Exit Sub
   
5.     n = n + 3 - Val(Right(Range("e" & n), 1))
   
6.     arr = Range("e5:e" & n)
   
7.     Set reg = CreateObject("vbscript.regexp")
   
8.     With reg
   
9.         '全局匹配
   
10.         .Global = True
    
11.         '匹配规则
    
12.         .Pattern = "\d+($|\n)"
    
13.         For i = 1 To UBound(arr)
    
14.             If arr(i, 1) <> "" Then
    
15.                 '替换
    
16.                 st1 = .Replace(arr(i, 1), "")
    
17.                 '匹配
    
18.                 st2 = .Execute(arr(i, 1))(0)
    
19.                 '把匹配到数字提取出来
    
20.                 n = Val(st2)
    
21.             Else
    
22.                 '对于空行，会把上一个非空单元格的数字提取出来加1，然后重新组合填入
    
23.                 n = n + 1
    
24.                 arr(i, 1) = st1 & Format(n, WorksheetFunction.Rept("0", Len(st2)))
    
25.             End If
    
26.         Next
    
27.     End With
    
28.     [f5].Resize(UBound(arr)) = arr
    
29. End Sub

复制代码

hwc2ycy

hwc2ycy

1. n = n + 3 - Val(Right(Range("e" & n), 1))

复制代码

调试的时候这句设断点，你看看n值的变化。

E列最后一行数据的值（右边第一位）决定了循环时N的终点值。

hwc2ycy

st1存储的是非空单元格内除去数字后剩下的字符串前缀。
st2存储的是非空单元格内最后的数字序号

dadasdas

hwc2ycy 发表于 2013-3-25 22:31
调试的时候这句设断点，你看看n值的变化。

E列最后一行数据的值（右边第一位）决定了循环时N的终点值。
...

3后面 "-"是什么意思？