操作excel的range该怎么写，我现在很晕，别笑我：（

Question

要插入一个chart
看excel的宏代码如下Range("A1:G4").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:G4"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "哇哈哈哈"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With我在程序里面，用
with exsheet.application
   .range(.cells(1,1),.cells(i,j)).select  ''这个好的 ,i ,j 是3，4
   .Charts.Add
    .ActiveChart.ChartType = xlLineMarkers
   .ActiveChart.SetSourceData .range(.cells(1,1),.cells(i,j)), xlRows ''这里就会出错，说是_application 出错，如果改成 .range("A2:B3")则是_Globle出错，狂郁闷啊，怎么办？end with

Answer 1

'    复制单元格
'    xlApp.ActiveWorkbook.Sheets(1).Range("a1:d2").Select
'    xlApp.Selection.Copy
'    xlApp.ActiveWorkbook.Sheets(1).Range("a22:d23").Select
'    xlApp.ActiveWorkbook.Sheets(1).Paste

Answer 2

合并单元格代码
  x.range("A2:A5").inergecells=true

Answer 3

我倒，楼上两位，看清楚我的问题，要不我再说明白一点，在vb里面怎么生成一个excel的chart？数据我有了，只要能生成chart就行

Answer 4

算了，我自己终于搞定了
dim oRange as excel.rangeset orange=exsheet.application.range(exsheet.cells(1,1),exsheet.cells(1,1)).select然后可以用，但是不知道为什么我那样写就是不行