分享LISP-EXECL中的CELLS转RANGE函数

(defun celtorgn(row col / us_rgn)

(setq us_rgn

(if(or(> col 475254)(< col 1))nil

(strcat

(if(> col 18278)(chr(+(rem(1-(/(- col 703)17576))26)65))"")

(if(> col 702)(chr(+(rem(/(- col 703)676)26)65))"")

(if(> col 26)(chr(+(rem(/(- col 27)26)26)65))"")

(chr(+(rem(1- col)26)65))

)

)

)

(setq us_rgn(if us_rgn(strcat us_rgn(itoa row))us_rgn))

)

在WIN11下OFFICE2019，CAD2008下运行正常

至于RANGE转CELLS，在LISP下直接用CELLS(12 "A"),没有必要将字符转换成数字。