chin15

¬Û·í¦³Ãø«×¡AÁÙ¬O¼gvba§Ö§a¡C

1. Sub test()
   
2.     Cells.Replace " '", "'"
   
3.     For Each a In [a:a].SpecialCells(2)
   
4.         x = Split(a & " ", "(")
   
5.         For i = 1 To UBound(x)
   
6.             m = Val(Mid(x(i), 2))
   
7.             x(i) = "(" & Left(x(i), Len(x(i)) - 2) & m & Right(x(i), 2)
   
8.         Next
   
9.         a(1, 2) = Join(x)
   
10.     Next
    
11. End Sub

½Æ»s¥N½X

¤U¸ü (46.71 KB)

2012-3-25 23:40