GBKEE

¦^´_ 1# yueh0720

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("TEST").Range("E2:E" & Sheets("TEST").Cells(Rows.Count, "A").End(xlUp).Row)
   
4.         .Cells = ""
   
5.         .Cells = "= MID(RC[-3],1,LEN(rC[-3])-1 ) + MID(RC[-2],1,LEN(rC[-2])-1 )"
   
6.         .SpecialCells(xlCellTypeFormulas, xlErrors) = ""
   
7.         .Value = .Value
   
8.         .Cells.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
   
9.     End With
   
10. End Sub

½Æ»s¥N½X