使用Proc Transpose循环处理Excel多数据范围的SAS技术需求

针对你这个Excel分块转置到SAS的需求，我更推荐方案2（先导入全文件再循环处理），因为它无需提前手动统计每个数据块的位置，能自动识别所有有效数据块，尤其适合块数较多的场景。如果你的数据块数量固定且范围明确，方案1的宏循环也能快速实现，下面分别给出两种方案的完整代码：

方案2：导入全文件后自动处理所有数据块 #

步骤1：导入整个Excel文件（保留所有行） #

首先导入整个文件，关闭自动获取列名的功能，因为Excel里没有固定表头，用默认的VAR1-VARN作为列名：

proc import datafile="&input./have.xlsx" out=raw_data dbms=xlsx replace;
    getnames=no; /* 不自动识别表头，用默认列名VAR1、VAR2... */
run;

步骤2：标记并筛选有效数据块 #

通过识别日期行（非空且不以Book开头），给每个数据块分配唯一ID，同时过滤掉空行：

data raw_data;
    set raw_data;
    retain block_id 0;
    /* 判断是否是日期行：非空且不是Book开头的行 */
    if not missing(VAR1) and substr(VAR1, 1, 4) ne "Book" then do;
        block_id + 1;
    end;
    /* 只保留属于数据块的行（过滤空行） */
    if block_id > 0;
run;

步骤3：将数据块转换为键值对格式 #

把每个数据块的日期和对应Book的值配对，生成便于转置的键值对数据集：

data key_value;
    set raw_data;
    by block_id;
    retain date_list1-date_list5; /* 存储当前块的5个日期，根据实际日期数量调整 */
    array date_list[*] date_list1-date_list5;
    
    if first.block_id then do;
        /* 日期行：把VAR1-VAR5的日期存入数组 */
        do i = 1 to dim(date_list);
            date_list[i] = resolve(cats("VAR", i));
        end;
    end;
    else do;
        /* 数据行：每个Book的对应值和日期配对 */
        book_id = VAR1;
        do i = 1 to dim(date_list);
            date = date_list[i];
            value = resolve(cats("VAR", i+1)); /* VAR2-VAR6对应日期的值 */
            output;
        end;
    end;
    keep book_id date value;
run;

步骤4：转置为最终宽表格式 #

用proc transpose把键值对转成你需要的日期为行、Book为列的格式：

proc transpose data=key_value out=final_want(drop=_name_) prefix=Book_;
    by date;
    id book_id;
    var value;
run;

/* 可选：调整列名，去掉自动添加的前缀 */
data final_want;
    set final_want;
    rename Book_Book_id1 = Book_id1 Book_Book_id2 = Book_id2;
run;

方案1：宏循环逐个导入并转置数据块 #

如果你的数据块数量固定，且能提前确定每个块的单元格范围，可以用宏循环批量处理：

步骤1：定义宏参数 #

设置数据块数量、起始行、列范围等参数：

%let input=/your/file/path; /* 替换为你的文件路径 */
%let num_blocks=2; /* 数据块总数，根据实际调整 */
%let start_row=2; /* 第一个数据块的起始行（Excel里的行号） */
%let col_range=A:F; /* 每个数据块的列范围，对应日期+Book数据 */

步骤2：编写宏循环处理每个块 #

循环导入每个数据块，转置后合并到最终数据集：

%macro import_transpose_blocks;
    %do i=1 %to &num_blocks;
        /* 计算当前块的Excel范围 */
        %let current_range=Data$&col_range.&start_row.:&col_range.%eval(&start_row+2);
        /* 导入当前数据块 */
        proc import datafile="&input./have.xlsx" out=block_&i dbms=xlsx replace;
            range="&current_range";
            getnames=no;
        run;
        /* 转置当前块 */
        proc transpose data=block_&i out=transposed_&i name=date;
            id VAR1;
            var VAR2-VAR6; /* 对应5个日期的数值列 */
        run;
        /* 合并到最终数据集 */
        %if &i=1 %then %do;
            data final_want;
                set transposed_&i;
            run;
        %end;
        %else %do;
            data final_want;
                set final_want transposed_&i;
            run;
        %end;
        /* 更新下一个块的起始行（3行数据+1行空行） */
        %let start_row=%eval(&start_row+4);
    %end;
%mend;

/* 执行宏 */
%import_transpose_blocks;

两种方案都能实现你要的最终格式，方案2更适合数据块数量不固定或较多的场景，方案1则更适合块数少、范围明确的情况，你可以根据实际需求选择。

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