各位大爺，大媽，大哥來看看吧。。。我都快急死了。全部家當了

Question

在delphi中如何能控制它合併一列，它能合併行，為什麼不能合併列。
with wkSheet.Range[wksheet.cells.item[1,1],wksheet.cells.item[10,1]],Font do
begin
Merge(True); //合并单元格
HorizontalAlignment:= xlCenter;
Size:=18;
Name:='隶书';
FontStyle:=Bold;
end;

Answer 1

Sub rangecell()
'
' rangecell Macro
' manager 记录的宏 2002-12-26
''
    Range("C2:C3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge
End Sub这是我录的宏的代码，改一改吧!等一会...

Answer 2

你把录制的宏中的几个属性加上去看一看：如：.WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False

Answer 3

Range("C2:C3").Select
    Selection.Merge
就足够了，如果还想设置其它属性
    With Selection do
        HorizontalAlignment := xlCenter
        VerticalAlignment := xlBottom
        WrapText := False
        Orientation := 0
        AddIndent := False
        ShrinkToFit := False
        MergeCells := False
    End With

Answer 4

Selection.Merge這一句怎麼加上去。

Answer 5

我是这样做的：  Range:=XLApp.Workbooks[1].WorkSheets['销售结算单'].Range['A3:A10'];
  Range.Merge(False);