kimbal

³o­Ó¤£¤@©w­n¥Îvba
°²³]¶}©l¦b A2 (§YB2=1234)
¦bA2 ¿é­Ó 1 (¦]¬°B2¦³ªF¦è)
¦bA3 ¿é³o­Ó¤½¦¡ = IF(B3="", "", IF( A2="", A1+1 , A2 ))

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

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