Hsieh

¦^´_ 1# aoss98

1. Sub nn()
   
2. Set Rng = Range([B1], [B65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
   
3. For i = 1 To Rng.Areas.Count
   
4.    Set a = Rng.Areas(i)
   
5.    For Each b In a
   
6.       b.Offset(, -1) = i
   
7.    Next
   
8. Next
   
9. End Sub

½Æ»s¥N½X

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

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