请老师帮帮忙，如何用VBA,提取每行连续的尾数到H列，谢谢！

斗兽狂人

请老师帮帮忙，如何用VBA,提取每行连续的尾数到H列，谢谢！

titi012

参与一下啊....

1. Sub text()
   
2. 
   
3. Dim x&, y&, i&, R&, xN%
   
4. Dim Arr, Brr(), Nrr(0 To 7) As Byte
   
5. R = Cells(Rows.Count, 1).End(xlUp).Row
   
6. ReDim Brr(3 To R)
   
7. For i = 3 To R
   
8.     Arr = Range("b" & i & ":g" & i)
   
9.     For x = 1 To 6
   
10.         Nrr(x) = Arr(1, x) Mod 10
    
11.     Next x
    
12.     For y = 1 To 5
    
13.         For x = 1 To 6 - y
    
14.             If Nrr(x) > Nrr(x + 1) Then
    
15.                 xN = Nrr(x + 1)
    
16.                 Nrr(x + 1) = Nrr(x)
    
17.                 Nrr(x) = xN
    
18.             End If
    
19.         Next x
    
20.     Next y
    
21.     Nrr(0) = 99: Nrr(7) = 99
    
22.     For x = 1 To 6
    
23.         If Nrr(x) = Nrr(x + 1) - 1 Or Nrr(x) = Nrr(x - 1) + 1 Then Brr(i) = Brr(i) & "," & Nrr(x)
    
24.     Next x
    
25.     If Brr(i) <> "" Then Brr(i) = Right(Brr(i), Len(Brr(i)) - 1)
    
26.     Erase Nrr
    
27.     Erase Arr
    
28. Next i
    
29. Range("H3").Resize(R - 2, 1) = WorksheetFunction.Transpose(Brr)
    
30. 
    
31. End Sub

复制代码

ykcbf1100

楼主摸拟的连续的尾数应该有遗漏吧。

ykcbf1100

结果和楼主摸拟的不太一样，不知道是不是猜错了。