vba如何提取特定符号前的数值

Qs18

试试........

醉眼看尘世

1. Sub test()
   
2. Dim Arr, i&, j&
   
3. With Sheet1
   
4.     i = .Cells(.Rows.Count, "F").End(3).Row
   
5.     Arr = .[f1].Resize(i, 1)
   
6.     ReDim Brr(1 To UBound(Arr, 1), 1 To 2)
   
7.     For i = 1 To UBound(Arr, 1)
   
8.         Trr = Split(Arr(i, 1), "*")
   
9.         If UBound(Trr) Then
   
10.             Brr(i, 1) = Trr(0)
    
11.             Brr(i, 2) = Trr(1)
    
12.         End If
    
13.     Next i
    
14.     .Range("L:M").ClearContents
    
15.     .[l1].Resize(UBound(Brr, 1), 2) = Brr
    
16. End With
    
17. End Sub
    

复制代码