ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý¸Ó¦p¦ó¥u±NÀx¦s®æ¤º¼Æ¦r³¡¤À¬Û¥[¨Ã±Æ§Ç

½Ð°Ý¸Ó¦p¦ó¥u±NÀx¦s®æ¤º¼Æ¦r³¡¤À¬Û¥[¨Ã±Æ§Ç

½Ð°Ý¸Ó¦p¦ó¥u±NÀx¦s®æ¤º¼Æ¦r³¡¤À¬Û¥[¨Ã±Æ§Ç
¦pªþ¥ó

TEST.rar (42.89 KB)

¦^´_ 1# yueh0720
  1. Sub xx()
  2. Dim Ar()
  3. I = 0
  4. Columns("E") = ""
  5. For R = 2 To [C65536].End(xlUp).Row Step 3
  6.   ReDim Preserve Ar(I)
  7.   Ar(I) = Application.Sum(Left(Cells(R, 2), Len(Cells(R, 2)) - 1), Left(Cells(R, 3), Len(Cells(R, 3)) - 1))
  8.   I = I + 1
  9. Next R
  10. [E2].Resize(I, 1) = Application.Transpose(Ar)
  11. [E2].Resize(I, 1).Sort Key1:=[E2], Order1:=xlAscending, Header:=xlGuess
  12. [E2].Resize(I, 1).NumberFormatLocal = "0.00"
  13. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-5-3 17:52 ½s¿è

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD