如何在excel提取某个限定条件的数值

莫名v微笑

1. Sub test()
   
2. Dim a, arr, spl
   
3. Application.ScreenUpdating = False
   
4. a = Sheets(1).UsedRange.Rows.Count
   
5. Sheets(1).Range("b2:b" & a).Clear
   
6. arr = Sheets(1).UsedRange
   
7. For i = 2 To UBound(arr)
   
8. spl = Split(arr(i, 1), "、")
   
9. For u = 0 To UBound(spl)
   
10. If InStr(spl(u), "镇") > 0 Then
    
11. If arr(i, 2) <> "" Then
    
12. arr(i, 2) = arr(i, 2) & "、" & spl(u)
    
13. Else:
    
14. arr(i, 2) = spl(u)
    
15. End If
    
16. End If
    
17. Next
    
18. Next
    
19. Sheets(1).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
20. Application.ScreenUpdating = True
    
21. End Sub
    

复制代码