任务描述
有两种不同类型的excel文件，每种共25个。需要将同一种类型文件汇总，并生成新的excel文件。

通过批处理语句copy *type1.xlsx all.xlsx可以实现，但有时候会乱码
练习一下matlab

解决思路
两个matlab程序

combine_eyedata.m 读取文件列表；将不同类型文件分类；输出汇总后文件
combine_list.m 合并文件程序，以函数形式呈现

combine_eyedata.m
clear;
input_file = 'E:\expdata\exp1\formal\eyecompute';
output_file = 'E:\expdata\exp1\formal\eyecompute_all\';

dirOutput = dir(fullfile(input_file,'*.xlsx'));
file_name_lists = {dirOutput.name};

%
blink_lists = [];
converge_lists = [];
fixation_lists = [];
microsac_lists = [];
pupil_lists = [];
steadiness_lists = [];
for i = 1:length(file_name_lists)
    t = regexp(file_name_lists{i}, '_', 'split');  
    switch t{4}
        case 'blink.xlsx'
            blink_lists = [blink_lists file_name_lists(i)];
        case 'converge.xlsx'
            converge_lists = [converge_lists file_name_lists(i)];
        case 'fixation.xlsx'
            fixation_lists = [fixation_lists file_name_lists(i)];
        case 'microsac.xlsx'
            microsac_lists = [microsac_lists file_name_lists(i)];
        case 'pupil.xlsx'
            pupil_lists = [pupil_lists file_name_lists(i)];
        case 'steadiness.xlsx'
            steadiness_lists = [steadiness_lists file_name_lists(i)];
    end
end

% blink_all = [];
% converge_all = [];
% fixation_all= [];
% microsac_all = [];
% pupil_all= [];
% steadiness_all = [];

blink_all = combine_list(input_file, blink_lists);
converge_all = combine_list(input_file, converge_lists);
fixation_all = combine_list(input_file, fixation_lists);
microsac_all = combine_list(input_file, microsac_lists);
pupil_all = combine_list(input_file, pupil_lists);
steadiness_all = combine_list(input_file, steadiness_lists);

xlswrite([output_file 'blink_all.xlsx'], blink_all);
xlswrite([output_file 'converge_all.xlsx'], converge_all);
xlswrite([output_file 'fixation_all.xlsx'], fixation_all);
xlswrite([output_file 'microsac_all.xlsx'], microsac_all);
xlswrite([output_file 'pupil_all.xlsx'], pupil_all);
xlswrite([output_file 'steadiness.xlsx'], steadiness_all);

combine_list.m
function out_list = combine_list(src, name_list)
    out_list = [];
    for i=1:length(name_list)
        [data, header] = xlsread([src '\' name_list{i}]);
        out_list = [out_list;data];
    end
    out_list = [header; num2cell(out_list)];
end

废话不多说，先上代码
e = actxserver('Excel.Application');                                        % open Activex server
ewb = e.Workbooks.Open(excelPath);                                          % open file (enter full path!)

ewb.Worksheets.Item(1).Name = 'I am sheet1';                                % rename sheet 1                                       
ewb.Worksheets.Item(2).Name = 'I am sheet2'; 
                                                                        
ewb.Worksheets.Item(1).Range('A1:J1').MergeCells=1;                         % 合并EXCEL中shett1里面A1到J1的单元格
ewb.Worksheets.Item(2).Range('A1:J1').MergeCells=1;  
                       
ewb.Save                                                                    % save to the same file
ewb.Close(false)
e.Quit

emmm代码放完，好像也没啥说的了。
为了防止你们遇到这个问题搜不到这个答案，下面多写点搜索词吧：
matlab将excel里的sheet重命名；

matlab对Excel工作表重命名；

使用matlab将excel合并单元格；

matlab导出excel时合并单元格；

猜你喜欢：👇🏻

⭐【Matlab】怎么修改Excel单元格颜色？

⭐Matlab循环读取txt文件并对其中数据进行计算最后导出为excel

 

G = importdata('g.txt');%读入文本

H = importdata('h.txt');

I = importdata('i.txt');

J = importdata('j.txt');

K = importdata('k.txt');

%a=xlsread('filename.xls');%读入excel

out = [G;H;I;J;K];

xlswrite('z.xlsx',[out]);%将合并的结果写入z.xlsx

t=out(:,1); %第 2 列为t

cd=out(:,3); %第 3 列为cd

cl=out(:,4); %第 3 列为cl

plot(t,cd,'r');

描述：

假设两个表格分别为某些产品的生产量和销售量流水信息，如图，





尝试将两个表格合并，即将对应同一产品的生产量和销售量合并在同一行；且产品名称这一列，不能有重复的产品名称。
第一步：

读取生产量、销售量数据，
[save_name,save_path] = uigetfile('*.*','选择生产量数据');
Data_produce=readtable(fullfile(save_path,save_name));

[save_name,save_path] = uigetfile('*.*','选择销售量数据');
Data_sale=readtable(fullfile(save_path,save_name));

第二步：

整理销售量数据，将产品名称相同的销售量合并到一起（第一列为产品名称、第二列为产品销售量、第三列为产品能效等级）。
class_s=unique(Data_sale{:,1});%取出互不相同的产品名称集合
n=length(class_s);

for m=1:n
   
   [row, col] = find(cellfun(@(x) strcmp(x,class_s(m)),Data_sale{:,1}));
   tmp1=Data_sale{:,2};
   num_s(m)=sum(tmp1(row));%产品销售量
   num_s=num_s';
   tmp3=Data_sale{:,3};
   stage_s(m)=tmp3(row(1));%产品能效等级
   stage_s=stage_s';
   
end

第三步：

整理生产量数据，将产品名称相同的生产量合并到一起；将同时有生产量和销售量的产品信息合并到一起。
class_p=unique(Data_produce{:,1});%取出互不相同的产品名称集合
n=length(class_p);
for m=1:n
   
   [row, col] = find(cellfun(@(x) strcmp(x,class_p(m)),Data_produce{:,1}));
   TMP1=Data_produce{:,2};
   num_p(m)=sum(TMP1(row));%产品生产量
   num_p=num_p';
   TMP3=Data_produce{:,3};
   stage_p(m)=TMP3(row(1));%产品能效等级
   [row1, col1] = find(cellfun(@(x) strcmp(x,class_p(m)),class_s));
   
    %将生产量不为0但销售量为0的列出，销售量赋0
    if sum(row1)>0
        SALE(m)=num_s(row1);
    else
        SALE(m)=0;
    end
    
end

第四步：

将销售量不为0但生产量为0的列出，生产量赋0，
for m=1:length(class_s)
    
    [row2, col2] = find(cellfun(@(x) strcmp(x,class_s(m)),class_p));
    if sum(row2)==0
        sale_produce_class(p)=class_s(m);%产品名称
        sale_produce_num(p)=num_s(m);%产品销售量
        sale_produce_stage(p)=stage_s(m);%产品能效等级
        p=p+1;
    end
    
end


第五步：

合并数据输出，
MingCheng=[class_p; sale_produce_class'];
N0=length(sale_produce_num);
num_p0=zeros(N0,1);%生产量赋0
ChanLiang=[num_p;num_p0];
XiaoLiang=[SALE';sale_produce_num'];
NengXiao=[stage_p';sale_produce_stage'];

T = table(MingCheng,ChanLiang,XiaoLiang,NengXiao);
 [save_name,save_path] = uiputfile('merge_excel.xlsx');%提示选择保存的路径和文件名
 writetable(T,fullfile(save_path,save_name));

最终合并结果