如何用SAS的PROC SQL或数据步高效生成ID关联的月度日期序列表？

针对你的需求，以下两种方法都是高效简洁的实现方式，分别适配不同场景：

一、数据步循环（全SAS版本兼容，性能最优） #

数据步是处理这类行展开需求的经典方案，代码直观且大数据量下表现稳定：

data expanded_dates;
    set original_table;
    /* 把原始字符型年月转为SAS日期（锚定每月1日） */
    start_sas = input(Start_Date, yymmn6.);
    end_sas = input(End_Date, yymmn6.);
    
    /* 按月遍历起止区间内的所有月份 */
    do current_sas = start_sas to end_sas by month;
        New_Date = put(current_sas, yymmn6.); /* 输出date6.格式的年月 */
        output;
    end;
    
    /* 只保留需要的字段 */
    keep IDs New_Date;
run;

核心逻辑：用by month让SAS自动处理月份递增（无需手动计算月份差），最后通过put函数转换为你需要的6位年月格式。

二、PROC SQL递归查询（SAS 9.4+适用，代码更简洁） #

如果使用SAS 9.4及以上版本，可以用递归CTE（公共表表达式）实现，无需显式写循环：

proc sql;
    create table expanded_dates as
    with recursive date_seq as (
        /* 初始查询：取出每个ID的起止日期 */
        select 
            IDs,
            input(Start_Date, yymmn6.) as current_date,
            input(End_Date, yymmn6.) as end_date
        from original_table
        
        union all
        
        /* 递归生成下一个月的日期，直到等于结束日期 */
        select 
            IDs,
            intnx('month', current_date, 1, 'b') as current_date,
            end_date
        from date_seq
        where current_date < end_date
    )
    /* 格式化输出最终结果 */
    select 
        IDs,
        put(current_date, yymmn6.) as New_Date format=$6.
    from date_seq
    order by IDs, New_Date;
quit;

核心逻辑：递归查询自动迭代生成每个月的日期，最后统一格式化输出，代码结构更紧凑。

方法选择建议 #

• 若需要兼容所有SAS版本，或处理超大规模数据集，优先选数据步；
• 若追求代码简洁且SAS版本满足要求，可选用PROC SQL递归。

内容的提问来源于stack exchange，提问作者NoobMaster27