根据分序号寻找主序号，替换S的值

njwtg

老师好，我想实现个功能
数据的基本情况：
  A列为顺序号，主序号后面有可能有分序号，以.1  .2  .3  ....的形式出现，O列的s值一定出现在序号中带点的行
  程序要求：当O列中出现“S’时，那s值就被替换，替换的逻辑如下；
S取主序号不带点的行对应的N列数据，如该单元格为空，则S列为2
  例如，O14替换后为2，O22替换后为m

谢谢老师

LIUZHU

1、描述不清不楚，一下S值，一下S列，到底是什么，如这句表述“S取主序号不带点的行对应的N列数据，如该单元格为空，则S列为2”。
2、O22替换后为，根据“S取主序号不带点的行对应的N列数据”，O22的主序号为6，6对应的行时19行，N19是空白，那么O22的替换值是不是也是为2？怎么是m，m是6.1那一行对应的值。

swl4561255

1. Sub test()
   
2. ar = [A65536].End(3).Row
   
3. For i = ar To 2 Step -1
   
4.     If Range("O" & i) = "S" Then
   
5.         ir = Range("N" & i).End(3).Row
   
6.             If Range("A" & ir) = Int(Range("A" & i)) Then
   
7.                 Range("O" & i) = Range("N" & ir)
   
8.             Else
   
9.                 Range("O" & i) = 2
   
10.             End If
    
11.     End If
    
12. Next
    
13. End Sub

复制代码

njwtg

厉害，谢谢swl4561255老师!