samwang

回復 1# peter95

1. Sub tt()
   
2. Dim Arr, i&
   
3.     Arr = Range("D10:O" & Range("D10").End(4).Row)
   
4.     For i = 1 To UBound(Arr)
   
5.         For j = 1 To UBound(Arr, 2)
   
6.             If InStr(Arr(i, j), "-") > 0 Then
   
7.                 Arr(i, j) = Val(Trim(Mid(Arr(i, j), 6, 7)))
   
8.             Else
   
9.                 Arr(i, j) = Val(Trim(Mid(Arr(i, j), 5, 7)))
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     Range("D10").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    
14. End Sub

複製代碼