输入数字列号获取EXCEL的列编号

根据输入的数字列号，转换为标准的excel列编号，比如：29对应AC

FUNCTION z_num_to_excel_column.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_NUM) TYPE  I
*"  EXPORTING
*"     REFERENCE(IV_COLUMN) TYPE  STRING
*"----------------------------------------------------------------------

  IF iv_num LE 0.
    EXIT.
  ENDIF.

  DATA: lv_array  TYPE string,
        lv_num    TYPE i,
        lv_divide TYPE i,
        lv_mod    TYPE i,
        lv_float  TYPE p DECIMALS 2.

  lv_array = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

* 从右往左确定字母
  lv_num = iv_num.
  lv_mod = lv_num MOD 26.
  lv_mod = lv_mod - 1.
  IF lv_mod = -1.
    lv_mod = lv_mod + 26.
  ENDIF.
  iv_column = lv_array+lv_mod(1).

  lv_num = iv_num.
  WHILE lv_num > 26.
    lv_float = lv_num / 26.
    lv_num = lv_num / 26.  "Demo:27 AA
    IF lv_num > lv_float.
      lv_num = lv_num - 1.
    ENDIF.

    lv_mod = lv_num MOD 26.
    lv_mod = lv_mod - 1.
    IF lv_mod = -1.
      lv_mod = lv_mod + 26.
    ENDIF.

    CONCATENATE lv_array+lv_mod(1) iv_column INTO iv_column.
  ENDWHILE.

  CONDENSE iv_column.

ENDFUNCTION.

 

测试结果