返回列表 上一主題 發帖

[分享] 將cells的數字欄改為range的文字欄

Function Col(C%)
  Col = IIf(C < 27, "", Chr(Int((C - 1) / 26) + 64)) & IIf(C Mod 26 = 0, "Z", Chr( ...
Min 發表於 2010-5-9 22:12



    2007已不敷使用
  1. Function ColumnName(Rng As Range)
  2. ColumnName = Split(Rng.AddressLocal, "$")(1)
  3. End Function
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題