填充编码

ddz79101

老师！我希望根据单元格中出现的不同情况，1是否含票号，2含票号的是否含关键字。填充编码，请老师帮忙看看指导。谢谢

grf1973

有“租赁费”的按“费”来算。

Qs18

1. Sub qs()
   
2. Dim arr, i, ar, s
   
3. With Sheet1
   
4. arr = .Range("a2:e16")
   
5. ar = .Range("a17:e31")
   
6. For i = 1 To UBound(arr)
   
7.     s = arr(i, 2)
   
8.     If IsNumeric(Right(s, 1)) And InStr(s, "租赁") Then
   
9.         arr(i, 3) = "444444"
   
10.     ElseIf IsNumeric(Right(s, 1)) And InStr(s, "费") Then
    
11.         arr(i, 3) = "333333"
    
12.     ElseIf IsNumeric(Right(s, 1)) Then
    
13.     arr(i, 3) = "222222"
    
14.     Else
    
15.     arr(i, 3) = "111111"
    
16.     End If
    
17. Next
    
18. For i = 1 To UBound(ar)
    
19.     s = ar(i, 2)
    
20.     If IsNumeric(Right(s, 1)) And InStr(s, "租赁") Then
    
21.         ar(i, 3) = "999999"
    
22.     ElseIf IsNumeric(Right(s, 1)) And InStr(s, "费") Then
    
23.         ar(i, 3) = "888888"
    
24.     ElseIf IsNumeric(Right(s, 1)) Then
    
25.     ar(i, 3) = "777777"
    
26.     Else
    
27.     ar(i, 3) = "666666"
    
28.     End If
    
29. 
    
30. Next
    
31. .Range("i2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
32. .Range("i16").Resize(UBound(ar), UBound(ar, 2)) = ar
    
33. End With
    
34. End Sub

复制代码

Qs18

试试..........

Qs18

试试.........

ddz79101

grf1973 发表于 2024-10-16 14:27
有“租赁费”的按“费”来算。

谢谢老师！按租赁来算

ddz79101

Qs18 发表于 2024-10-16 14:34
试试.........

谢谢老师！运行成功！至于那个租赁和租赁费的问题。确实我的问题有矛盾，看了只有前期调整避免

longwin

longwin

附件供参考。。。

ddz79101

grf1973 发表于 2024-10-16 14:27
有“租赁费”的按“费”来算。

谢谢老师！运行成功，我是特想看看正则写法。至于那个租赁和租赁费的问题。确实我的问题有矛盾，看来只有前期调整避免