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

aoss98

¦p¦ó¦bAÄæ ¦Û°Ê¶ñ¤W½s¸¹¡A½Ð¦U¦ì°ª¤â«ü敎³oµ{¦¡½X¦p¦ó¼g? ÁÂÁÂ!!
AÄæ          BÄæ
               1234
               23
               123

               234
               567
               
               123
               678
               4567
               185

§¹¦¨«á
AÄæ          BÄæ
1             1234
1             23
1             123

2             234
2             567
               
3             123
3             678
3             4567
3             185

kimbal

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

john2006168

¦^´_ 13# kimbal

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

kimbal

¥[¦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. 
    
13. For Each c In Range([A10], [A65536].End(xlUp)).Offset(0, 5)
    
14. c.Value = c.Offset(0, -5).Value & c.Offset(0, -1).Value
    
15. Next
    
16. End Sub

½Æ»s¥N½X

john2006168

Book3.zip (4.62 KB)

¤U¸ü¦¸¼Æ: 7

2010-7-29 11:16

¦^´_ 11# Hsieh


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

Hsieh

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

john2006168

¦^´_ 9# Hsieh


    ¦Ñ®v¦pªGplt no¥Î01 ,02,03ªí¥Ü,À³¸Ó«ç»ò§ï

Hsieh

¦^´_ 8# 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 = i
   
10. Next
    
11. Range([A11], [A65536].End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
12. End Sub

½Æ»s¥N½X

john2006168

¦^´_  aoss98
Hsieh µoªí©ó 2010-7-27 22:22

tesst2010.zip (8.4 KB)

¤U¸ü¦¸¼Æ: 10

2010-7-29 00:50

    ¦Ñ®v,§Ú¦³Ãþ¦üªº°ÝÃD¬Û¦Pªº°ÝÃD,½Ð°Ý¥ÎVBA«ç»ò¼g

aoss98

ÁÂÁ¦U¦ì«ü±Ð!!!