Если кто-нибудь знает решение этой проблемы, пожалуйста, ответьте
use strict
use Spreadsheet::WriteExcel;
my $Workbook = Spreadsheet::WriteExcel->new('cw.xls');
my $Worksheet1 = $Workbook->add_worksheet('MRD');
# Here $Groups[0] is unmerged cell
$Worksheet1->write(10,0, **$Groups[0]**,$Bg_Color);
my $i=1;
foreach my $Grp(@Groups){
my $Cell_Position = "$A2Z_Array[$i]10:$A2Z_Array[$i+1]10";
$Worksheet1->merge_range($Cell_Position,**$Grp**,$Bg_Color_1);
# Here $Grp is merged cell
$i+=2;
}