进销存软件版1楼: Excel怎样竖向合并单元格？ 用delphi编程实现!
|_________________|__name______|___gender___|___age____|
| |art |_class1_|____*_______|_____*______|____*_____|
| X |____|_class2_|____*_______|_____*______|____*_____|
| |math|_class3_|____*_______|_____*______|____*_____|
|___|____|_class4_|____*_______|_____*______|____*_____|

2楼: 一样的，选择要合并的竖项表格，再按合并及居中按纽即可。 如用友财务软件8.52

3楼: 用delphi编程实现!

4楼: ExcelApp.ActiveSheet.Range[＇＇A1:E1＇＇].MERGE; //横向
ExcelApp.ActiveSheet.Range[＇＇A1:A5＇＇].MERGE; //竖向

用数字代替格子坐标的方法
Cell1,Cell2 : OleVariant;

//横向
//Cell1:=ExcelApp.ActiveSheet.Cells[0,0];
//Cell2:=ExcelApp.ActiveSheet.Cells[0,4];
//竖向
Cell1:=ExcelApp.ActiveSheet.Cells[0,0];
Cell2:=ExcelApp.ActiveSheet.Cells[4,0];
ExcelApp.ActiveSheet.Range[Cell1,Cell2].Merge;

5楼: ExcelApp.activesheet.Range[sheet.cells[1,1],sheet.cells[1,5]].MERGE

6楼: //横向合并和竖向合并没什么区别

var exsheet:variant;
exsheet.range[＇＇a1＇＇].verticalalignment:=$FFFFEFF4;
exsheet.range[＇＇a1＇＇,＇＇a3＇＇].merge;

进销存软件版7楼: ExcelApplication1.Range[＇＇A1＇＇,＇＇B2＇＇].Merge(True);
效果只是
A B
_______________________
|_____________________|
|_____________________|

不是我想要的效果:
A B
_______________________
| |
|_____________________|

8楼: 我自己解决了!