[TB-LISP函数]：TBC:Column->Num EXCEL列字母转列号

tengteb · 发表于 2022-6-7 18:25:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 tengteb 于 2022-6-13 18:35 编辑

  ;列字母转列号，例AA --> 27
(defun TBC:Column->Num (txt / Func n)
  (defun Func (i /)
(setq n (+ (* 26 n) (- i 64)))
  ) ;defun
  (setq n 0)
  (mapcar 'Func (vl-string->list txt))
  n
)

qxlonmsn · 发表于 2022-6-8 09:26:35

感谢你的代码可以用来做表格

qqqincccken · 发表于 2022-6-9 20:45:38

谢楼主的提供下载来学习

hh_lj007 · 发表于 2022-6-10 16:33:53

感谢分享源码

账号		自动登录	找回密码
密码			立即注册

[源码] [TB-LISP函数]：TBC:Column->Num EXCEL列字母转列号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。