GBKEE

¦^´_ 15# donod

1. Sub Ex()
   
2.     Dim E As Range, W As String
   
3.     Workbooks.OpenText Filename:="D:\test5.txt"
   
4.     With ActiveWorkbook.Sheets(1)
   
5.         .Cells.Replace ";", " ", xlPart
   
6.         .Columns(2).Insert
   
7.         For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants)
   
8.             W = E
   
9.             E = Mid(W, 1, 10)
   
10.             E.NumberFormatLocal = "m/d/yyyy;@"
    
11.             E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# donod

1. 
   
2.            'E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
   
3.             E.Offset(, 1) = Replace(Mid(W, 12, 5), "/", ":")
   
4.            'W³o¦r¦ê±q²Ä12­Ó¦r¤¸°_¨ú5­Ó¦r¤¸

½Æ»s¥N½X

GBKEE

¦^´_ 21# donod
½Ð°Ý text5ªº¦r¦ê,¥i¬O¥þ¬°2013/04/02/09/14/01;
¦p¦³ 2013/04/02/09/15/00; 2013/04/02/09/15/02; 2013/04/02/09/15/03;
¬O§_­n¤@¤@¥h
.Cells.Replace "/00;", " ", xlPart
.Cells.Replace "/02;", " ", xlPart
.Cells.Replace "/03;", " ", xlPart

GBKEE

¦pªG¬O¤£¶×¤J2013/04/02/09/14/01;¤¤ªº¬Y­Ó(e.g.2013/04/02/09/14/01;)©Î¬Y´X­Ó¦r¤¸(e.g.2013/04/02/09/14/01;)¡Adonod µoªí©ó 2013/4/15 17:56

¤£¸Ñ§Aªº·N«ä,½Ð¦A¸Ô²Ó»¡©ú