Excel数字列号转换为字母列号

wdmzslw · 发表于 2017-5-28 10:16:55

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

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

×

本帖最后由 wdmzslw 于 2017-5-28 12:32 编辑

[sell=2];;说明:Excel数字列号转换为字母列号的函数
;;参数:num:整数。理论取值范围为1-18278，但Excel2007以后版本最大列数为16384（XFD），超过此值没有意义。
;;返回:字母字符串
;;作者：wdmzslw
(defun Excel::COLnum2alph(num / v1 v2 v3)
      (setq v1 (/ num 676)
                  v2 (/ (rem num 676) 26)
                  v3 (rem (rem num 676) 26)
      )
      (if (= 0 v3)
            (if (= 0 v2)
                     (setq v1 (- v1 1)
                                 v2 25
                                 v3 26
                     )
                     (setq v2 (- v2 1)
                                 v3 26
                     )
            )
      )
      (if (and(/= v1 0 )(= 0 v2))
                     (setq v1 (- v1 1)
                           v2 26
            )
      )
      (vl-list->string(mapcar '(lambda(x)(+ x 64))(vl-remove-if '(lambda(x)(= x 0) )(list v1 v2 v3))))
)[/sell]

(defun c:t1 (/ num)
      (while (setq num (getint"\n输入一个整数："))
            (if (and (> num 0)(<= num 16384))
                     (princ (Excel::COLnum2alph num))
            )
            (princ"\n")
      )
)
输入一个整数：26
Z
输入一个整数：27
AA
输入一个整数：702
ZZ
输入一个整数：703
AAA
输入一个整数：16384
XFD

(defun c:t2 ( / n f)
      (setq n 0)
      (setq f (open "c:\\1.txt" "w"))
      (repeat 18278
            (write-line (vl-princ-to-string(Excel::COLnum2alph (setq n (1+ n)))) f)
      )
      (close f)
)

wdmzslw · 发表于 2017-5-28 10:16:56

(defun c:t1 (/ num)
(while (setq num (getint"\n输入一个整数："))
(if (and (> num 0)(<= num 16384))
(princ (Excel::COLnum2alph num))
)
(princ"\n")
)
)
输入一个整数：26
Z
输入一个整数：27
AA
输入一个整数：702
ZZ
输入一个整数：703
AAA
输入一个整数：16384
XFD

(defun c:t2 ( / n f)
(setq n 0)
(setq f (open "c:\\1.txt" "w"))
(repeat 18278
(write-line (vl-princ-to-string(Excel::COLnum2alph (setq n (1+ n)))) f)
)
(close f)
)

newer · 发表于 2017-5-28 11:24:17

wdmzslw 发表于 2017-5-28 10:16

欢迎多发，共同提高。

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

[原创] Excel数字列号转换为字母列号

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

评分

相关帖子