c_c_lai

¦^´_ 3# mave

1. Function ColumnName(Rng As Range)
   
2.     ColumnName = Split(Rng.AddressLocal, "$")(1)
   
3.     '  Rng.AddressLocal : "$AB$1" : String
   
4.     '  Split(Rng.AddressLocal, "$")(0) : ""   : String
   
5.     '  Split(Rng.AddressLocal, "$")(1) : "AB" : String
   
6.     '  Split(Rng.AddressLocal, "$")(2) : "1"  : String
   
7.     '  ColumnName : "AB" : Variant/String
   
8. End Function

½Æ»s¥N½X