Perl 怎么合并多个range区域？Union???

zxklovelife

各位，多个range区域合并，下面VBA的写法如果用perl来表示，怎么写啊？

Application.Union(Range(Cells(1, 1), Cells(11, 3)), Range(Cells(16, 1), Cells(16, 3)), Range(Cells(21, 1), Cells(32, 3))).Select

zxklovelife

Hi flw, 兰花仙子, zhlong8,
    求助你们啊，Union 能在perl中用吗？？？

flw

没明白你想干嘛。

是用 Perl 操作 Excel 吗？
那和 VBA 差不多。

zxklovelife

我想用perl处理来excel，并将Range("A4:A$sh1_last")和Range("J3:J$sh1_last")合并赋给Source，但不知道怎么表示， 只能赋予Range("J3:J$sh1_last")。


     my $chart_m = $sheet1->Range("J3:J$sh1_last");
#   my $chart_f = $sheet1->Range("A4:A$sh1_last");
     my $top = $sh1_last_line * 20 + 35;
     my $chart = $sheet1->ChartObjects->Add(90, $top, 500, 250);    #left, top, height, width
      $chart->chart->SetSourceData({Source =>$chart_m,PlotBy => xlColumns});