Excel怎样竖向合并单元格?(是竖向不是横向)(24分)

陈

陈桂坚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #1

Excel怎样竖向合并单元格? 用delphi编程实现!
|_________________|__name______|___gender___|___age____|
| |art |_class1_|____*_______|_____*______|____*_____|
| X |____|_class2_|____*_______|_____*______|____*_____|
| |math|_class3_|____*_______|_____*______|____*_____|
|___|____|_class4_|____*_______|_____*______|____*_____|

 

X

xuhuanabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #2

一样的，选择要合并的竖项表格，再按合并及居中按纽即可。

 

陈

陈桂坚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #3

用delphi编程实现!

 

C

czcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #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;

 

F

fsldg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #5

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

 

7

7030

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #6

//横向合并和竖向合并没什么区别
var exsheet:variant;
exsheet.range['a1'].verticalalignment:=$FFFFEFF4;
exsheet.range['a1','a3'].merge;

 

陈

陈桂坚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-02

• #7

ExcelApplication1.Range['A1','B2'].Merge(True);
效果只是
A B
_______________________
|_____________________|
|_____________________|

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

 

陈

陈桂坚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-08

• #8

我自己解决了!