aSheet.Range['A1','B2'].MergeCells:=True;以上可以合并。但是我不知道到底是B还是F,也就是说是动态的,但是我可以得到Column的值,也就是['A1','Column2'],应该怎么写才正确?还有就是怎么禁用鼠标,就是让屏幕上的鼠标变成一个漏斗型,等完成某项操作后又恢复?谢谢各位大侠帮忙!

解决方案 »

  1.   

    qzw: Variant
    qzw:=excelworksheet2.rows;
    QZW1:=excelworksheet2.Range['A1','e1'];
    QZW1.MERGE;(unmerge)合并和拆散单元格
      

  2.   

    这个‘E’是动态的!也就是我不能确定到底是E还是F.
    有的时候是E,有的时候可能是AF!
    我只能知道是第5列,或者是第七列,就是说怎么转化为E,或G?
      

  3.   

    只有做判断:
    CASE 列数 OF
    5:QZW1:=excelworksheet2.Range['A1','e1'];
    7:QZW1:=excelworksheet2.Range['A1','G1'];
    END;
      

  4.   

    谢谢WWWWA(aaaa) 兄弟,我已经按你的方法解决,虽然不是有36列,但是毕竟是解决了!下面再给出所有的一些操作:
    ExlRangeStr:=GetCellNumber(column-1)+'1';  //GetCellNumber把列转化为A或者G的函数
    ExcelWorkSheet1.Range['A1',ExlRangeStr].Font.Name:='隶书';  //字体
    ExcelWorkSheet1.Range['A1',ExlRangeStr].Font.Size:='23';   //字体大小
    ExcelWorkSheet1.Range['A1',ExlRangeStr].MergeCells:=True;  //合并单元格
    ExcelWorkSheet1.Range['A1',ExlRangeStr].HorizontalAlignment:=xlCenter;//字体居中