by HPC_ZY
把多个Excel表合成一个。朋友提出需求,表示手动复制粘贴太累了,就写了这个代码。
代码
直接上函数
function MultXlsIntoOne(inputFolder,outputFolder,outputFileName)
% 获取所有xls列表
dirOutput = dir(fullfile(inputFolder,'*.xlsx'));
fileNames = {dirOutput.name}';
fileNum = length(fileNames);
idx = 1;
for fileidx = 1:fileNum
% 读取xls内容
disp([num2str(fileidx),'--',fileNames{fileidx}])
[~,~,info] = xlsread(fullfile(inputFolder,fileNames{fileidx}));
% 写入
xlswrite(fullfile(outputFolder,outputFileName),info,1,['A',num2str(idx)])
% 更新
infonum = size(info,1);
idx = idx+infonum;
end
disp('完成')
end
使用
首先把需要整合的excel表放到同一个文件夹里,然后运行就ok了
注意该代码用于格式相同的excel合并(列数要一致)
注意该代码用于格式相同的excel合并(列数要一致)
注意该代码用于格式相同的excel合并(列数要一致)
若列数不同,只会按第一个excel为标准
clear; clc
inputFolder = 'E:\src'; % 写你xls所在的路径
outputFolder = 'E:\obj'; % 写合并之后你想放在哪里
outputFileName = 'newlist.xlsx'; % 给合并之后的xls取个名字
MultXlsIntoOne(inputFolder,outputFolder,outputFileName)
其他
- 如果小伙伴们想实现个性化功能,自己又不想写,可以评论区留言。如果我有空且需求有趣,可以无偿代写。
- 注意