function UserRange = ExcelRangeCalculate(data,begin)
% 计算数据矩阵所占用的单元格范围
% UserRange = ExcelRangeCalculate(data,begin) 输入参数data用来指定要写入的
% 数据矩阵,begin用来指定写入的初始位置(左上角位置)。
% CopyRight:xiezhh(谢中华)
% 2011.11.15
% Example:
% data = rand(5,3);
% UserRange = ExcelRangeCalculate(data,'A1')
%
if ~ischar(begin) || isempty(begin)
error('初始位置参数应为非空字符串');
end
[m,n] = size(data);
begin = upper(begin);
Letter = begin(regexp(begin, '[A-Z]'));
id = begin(regexp(begin, '[0-9]'));
id = str2num(id);
if isempty(Letter)
Letter = 'A';
end
if isempty(id)
id = 1;
end
lastcol = dec2base27(base27dec(Letter)+n-1);
UserRange = [Letter,num2str(id),&