oobird

1. Sub test()
   
2.     a = Range([a2], [a65536].End(3))
   
3.     ReDim arr(1 To UBound(a), 1 To 3)
   
4.     For i = 1 To UBound(a)
   
5.         arr(i, 1) = Val(a(i, 1))
   
6.         If InStr(a(i, 1), "+") Then arr(i, 2) = Val(Mid(a(i, 1), InStr(a(i, 1), "+") + 1))
   
7.         If InStr(a(i, 1), "/") Then arr(i, 3) = Val(Mid(a(i, 1), InStr(a(i, 1), "/") + 1))
   
8.     Next
   
9.     [b2].Resize(UBound(a), 3) = arr
   
10. End Sub

½Æ»s¥N½X