SAS技术问询：如何在宏中使用Do循环实现数据转置？

原代码的核心问题 #

• 数组定义位置错误：SAS数组只能在数据步内部使用，原代码将数组放在宏的全局位置会触发语法错误
• 宏循环逻辑错误：%do循环会重复执行整个数据步，每次都会覆盖school_enroll_transpose数据集，最终仅保留最后一次循环的结果
• 下标与年份不匹配：数组enroll{13}对应2005-2017共13年，但原循环%do i=6 %to 18的下标超出数组范围（数组下标仅1-13），且year=2004+i计算出的年份与实际列的年份完全不对应

修正后的代码 #

%macro school_transpose;
  data school_enroll_transpose;
    set school_enroll;
    /* 定义数组，按年份升序对应列，下标1对应2005年 */
    array enroll{13} Total_Enroll_2005-Total_Enroll_2017;
    /* 数据步内部循环遍历数组，替代宏循环 */
    do i=1 to 13;
      year = 2004 + i;
      total_enroll = enroll{i};
      /* 每次循环输出一条转置记录，避免数据覆盖 */
      output;
    end;
    /* 删除原年份列和循环变量，简化数据集 */
    drop Total_Enroll_2005-Total_Enroll_2017 i;
  run;
%mend;
%school_transpose;

关键修正说明 #

• 移数组到数据步内：这是SAS数组的标准使用方式，确保数组能正确关联当前数据步的变量
• 用数据步循环替代宏循环：宏循环会重复生成数据步，而数据步内的循环可在单次处理中完成所有转置，通过output语句保留每一条年份对应的记录
• 修正列顺序与年份计算：调整数组列的顺序为升序，让下标1对应2005年，与year=2004+i的计算逻辑完全匹配
• 清理冗余变量：通过drop语句删除原有的年份列和循环变量，让转置后的数据集结构更清晰

提示：如果原数据集包含学校ID、名称等其他需要保留的变量，这些变量会自动携带到每一条转置后的记录中，无需额外处理

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