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

[µo°Ý] ¦p¦ó¦bAÄæ ¦Û°Ê¶ñ¤W½s¸¹

¦^´_ 10# john2006168
  1. Sub nn()
  2. Dim Rng As Range
  3. [A10].Insert xlToRight
  4. [A10] = "plt no"
  5. Set Rng = Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
  6. For i = 1 To Rng.Areas.Count
  7. mystr = Rng.Areas(i).Address
  8.    Rng.Areas(i).Insert xlToRight
  9.    Range(mystr).Value =format( i,"'00")
  10. Next
  11. Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Book3.zip (4.62 KB) ¦^´_ 11# Hsieh


    ¦hÁ¦Ѯv,¥t¥~§Ú·Q±Nplt no ¥[¤Wref no¦n¹³sheet02,½Ð¦A¤TÀ°¦£

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2010-7-29 13:28 ½s¿è

¥[¦bfÄæ
  1. Sub nn()
  2. Dim Rng As Range
  3. [A10].Insert xlToRight
  4. [A10] = "plt no"
  5. Set Rng = Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
  6. For i = 1 To Rng.Areas.Count
  7.    mystr = Rng.Areas(i).Address
  8.    Rng.Areas(i).Insert xlToRight
  9.    Range(mystr).Value =format( i,"'00")
  10. Next
  11. Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

  12. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
  13. c.Value = c.Offset(0, -5).Value & c.Offset(0, -1).Value
  14. Next
  15. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-7-29 21:23): ¦Û¤v³£¤£«ä¦Ò,¥u¾ß²{¦¨,¥Ã»·³£¬Oµo°ÝªÌ

¦^´_ 13# kimbal

thanks ,¦pªG§Ú·Q¦bsheet2 show ¥X¨ÓÀ³¸Ó«ç»ò¼g

TOP

¦^´_ 14# john2006168

§â
  1. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
  2. c.Value = c.Offset(0, -5).Value & c.Offset(0, -1).Value
  3. Next
½Æ»s¥N½X
´«¦¨
  1. i=0
  2. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
  3. i=i+1
  4. worksheets("sheet2").range("e1").offset(i) = c.Offset(0, -5).Value & c.Offset(0, -1).Value
  5. Next
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD