求助：将复杂格式Excel数据导入SAS数据集并转换格式

提供两种可行方案，可根据实际情况选择：

方案一：先在Excel中整理数据，再导入SAS #

操作步骤： #

1. 添加新列：在Excel中插入两列，分别命名为Order和Document。
2. 提取关键值：
   • 从第一行Firstname列的Order#: AMS1中提取AMS1，填入Order列的第一行。
   • 从第二行Firstname列的Document# Doc1中提取Doc1，填入Document列的第二行。
3. 向下填充值：选中Order列的AMS1单元格，按住鼠标左键向下拖动填充到第三、四行；同理处理Document列的Doc1。
4. 清理无效行：删除前两行包含Order#和Document#的无效数据行，保留第三、四行的完整数据，此时Excel结构与目标SAS数据集一致。
5. 导入SAS：使用PROC IMPORT导入整理后的Excel文件，示例代码：

proc import datafile="C:\your_file_path\cleaned_excel.xlsx"
    out=work.target_data
    dbms=xlsx replace;
    getnames=yes; /* 读取Excel表头作为SAS变量名 */
run;

方案二：先导入原始Excel到SAS，再进行数据转换 #

操作步骤： #

1. 导入原始数据：先将未处理的Excel文件导入SAS，生成原始数据集：

proc import datafile="C:\your_file_path\raw_excel.xlsx"
    out=work.raw_data
    dbms=xlsx replace;
    getnames=yes;
run;

2. 提取Order和Document值：通过数据步提取并存储关键值为宏变量：

data _null_;
    set work.raw_data;
    /* 提取Order值 */
    if index(Firstname, "Order#: ") > 0 then do;
        order_value = scan(Firstname, 2, ": ");
        call symputx('order_var', order_value);
    end;
    /* 提取Document值 */
    if index(Firstname, "Document# ") > 0 then do;
        doc_value = scan(Firstname, 2, " ");
        call symputx('doc_var', doc_value);
    end;
run;

3. 生成目标数据集：筛选有效姓名行，并合并提取的关键值：

data work.target_data;
    set work.raw_data;
    /* 过滤掉包含Order#/Document#的无效行 */
    where not (index(Firstname, "Order#") > 0 or index(Firstname, "Document#") > 0);
    /* 赋值Order和Document变量 */
    Order = "&order_var";
    Document = "&doc_var";
    /* 保留需要的变量 */
    keep Order Document Firstname Lastname;
run;

备选实现方式（使用转置合并）： #

如果原始数据的元数据行位置不固定，可先提取元数据再合并：

/* 提取元数据行 */
data work.metadata;
    set work.raw_data;
    length Order Document $20;
    if index(Firstname, "Order#: ") > 0 then do;
        Order = scan(Firstname, 2, ": ");
        output;
    end;
    else if index(Firstname, "Document# ") > 0 then do;
        Document = scan(Firstname, 2, " ");
        output;
    end;
run;

/* 转置元数据为单行 */
proc transpose data=work.metadata out=work.metadata_trans prefix=val;
    var Order Document;
run;

/* 筛选有效姓名行 */
data work.name_list;
    set work.raw_data;
    where not (index(Firstname, "Order#") > 0 or index(Firstname, "Document#") > 0);
run;

/* 合并元数据与姓名数据 */
data work.target_data;
    if _n_=1 then set work.metadata_trans;
    set work.name_list;
    Order = val1;
    Document = val2;
    keep Order Document Firstname Lastname;
run;

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