根据A列数字产生B列树根序列号

mengrs

=LOOKUP(A1,ROW($1:$44),"GM-"&TEXT({111;112;113;121;122;123;124;131;132;211;212;213;214;221;222;223;224;225;226;231;232;233;311;312;313;314;315;321;322;323;324;331;332;333;334;335;336;341;342;343;344;345;346;347},"0!.0!.0"))

niko88819

1.     Function niko(value As Integer) As String
   
2.     Dim A As Integer
   
3.     Dim B As Integer
   
4.     Dim C As Integer
   
5.     Select Case value
   
6.         Case 1 To 9
   
7.             A = 1
   
8.         Case 10 To 22
   
9.             A = 2
   
10.         Case 23 To 44
    
11.             A = 3
    
12.     End Select
    
13.     Select Case value
    
14.         Case 1 To 3
    
15.             B = 1
    
16.         Case 4 To 7
    
17.             B = 2
    
18.         Case 8 To 9
    
19.             B = 3
    
20.         Case 10 To 13
    
21.             B = 1
    
22.         Case 14 To 19
    
23.             B = 2
    
24.         Case 20 To 22
    
25.             B = 3
    
26.         Case 23 To 27
    
27.             B = 1
    
28.         Case 28 To 31
    
29.             B = 2
    
30.         Case 32 To 37
    
31.             B = 3
    
32.         Case 38 To 44
    
33.             B = 4
    
34.     End Select
    
35.     Select Case value
    
36.         Case 1: C = 1
    
37.         Case 2: C = 2
    
38.         Case 3: C = 3
    
39.         Case 4: C = 1
    
40.         Case 5: C = 2
    
41.         Case 6: C = 3
    
42.         Case 7: C = 4
    
43.         Case 8: C = 1
    
44.         Case 9: C = 2
    
45.         Case 10: C = 1
    
46.         Case 11: C = 2
    
47.         Case 12: C = 3
    
48.         Case 13: C = 4
    
49.         Case 14: C = 1
    
50.         Case 15: C = 2
    
51.         Case 16: C = 3
    
52.         Case 17: C = 4
    
53.         Case 18: C = 5
    
54.         Case 19: C = 6
    
55.         Case 20: C = 1
    
56.         Case 21: C = 2
    
57.         Case 22: C = 3
    
58.         Case 23: C = 1
    
59.         Case 24: C = 2
    
60.         Case 25: C = 3
    
61.         Case 26: C = 4
    
62.         Case 27: C = 5
    
63.         Case 28: C = 1
    
64.         Case 29: C = 2
    
65.         Case 30: C = 3
    
66.         Case 31: C = 4
    
67.         Case 32: C = 1
    
68.         Case 33: C = 2
    
69.         Case 34: C = 3
    
70.         Case 35: C = 4
    
71.         Case 36: C = 5
    
72.         Case 37: C = 6
    
73.         Case 38: C = 1
    
74.         Case 39: C = 2
    
75.         Case 40: C = 3
    
76.         Case 41: C = 4
    
77.         Case 42: C = 5
    
78.         Case 43: C = 6
    
79.         Case 44: C = 7
    
80.     End Select
    
81.    niko = "GM-" & A & "." & B & "." & C
    
82. End Function
    

复制代码

B1 下拉

1. =NIKO(A1)

复制代码

jylai

感谢老师，您们太棒了