能用程序来做不？

blackttea1

类似此类公式="101"&TEXT(RIGHT(B2,LEN(B2)-FIND("/",B2))*100,REPT(0,3))&TEXT(LEFT(B2,FIND("/",B2)-1),REPT(0,3))，因为判断的条件超过了七个，能用VBA程序来做不？

qingc0221

只要逻辑能搞清楚都能做得到

blackttea1

逻辑关系是清楚的，但条件太多，附件只列举两个，想用程序来做

zhenghui13

Nothing impossible.

1. Sub TZ()
   
2. Dim i
   
3. Dim tmp
   
4. Dim Sk1$, Sk2$
   
5. Dim Str$
   
6. With Sheet1
   
7.     For i = 2 To .Cells(65536, 1).End(xlUp).Row
   
8.        Str = ""
   
9.        If .Cells(i, 1) = "a1" Then
   
10.             Str = "101"
    
11.        Else
    
12.             Str = "10A"
    
13.        End If
    
14.        tmp = Split(.Cells(i, 2), "/")
    
15.        Sk1 = "00" & tmp(0)
    
16.        Sk2 = Replace(tmp(1), ".", "")
    
17.        Str = Str & Sk2 & Sk1
    
18.        .Cells(i, 4) = Str
    
19.     Next i
    
20. End With
    
21. End Sub

复制代码

blackttea1

谢谢楼上的，已达到我的要求。