我不知道這個問題要po在那裡,所以po在這邊. 請問有人知道要下什麼指令讓excel 2 個儲存格合併呢? 謝謝~

合併: ExcelWorksheet1.Range['C1', 'C2'].Merge(True);

不行說~ 還是沒有合併

為何不行?在我這邊是可以的,不妨打開一個Excel檔然後用下面的代碼試一下:

uses 
  ComObj;    procedure TForm1.Button1Click(Sender: TObject);
var
  AExcel: Variant;
  AWorkSheet: OleVariant;
begin
  try
    AExcel := GetActiveOleObject('Excel.Application');
    AExcel.Application.Visible := True;
    AWorkSheet := AExcel.WorkSheets[1];
    //合併第2行第1列與第2行第2列
    AWorkSheet.Range[AWorkSheet.Cells[2, 1], AWorkSheet.Cells[2, 2]].Merge(True);
  except
    raise;
  end;
end;

謝謝Rain,可以了,是我放的地方不對.現在可以了 謝謝

Hi Rain, 但如果我要把A1:C3 merge起來,結果會把 A1:C1 merge, A2:C2 merge, A3:C3 merge. 我想要的是A1:C3 merge.這要怎樣做呢?

是的，會把A1到C3之間的單格都合併而非合併兩個單格:( 不過老實說，我覺得您的要求有點高，因為如果要合併兩個非連續的 單格，我懷疑在Excel自己當中都實現不了（總之我是沒試出來）， 事實上想想看，A1和C3？想讓它們怎麼合併呢？合併A1和C1 還比較合理，只是很可能連這個都難做到。

你可能誤解了我的意思~~~ 我的意思是說把A1,B1,C1,A2,B2,C2,A3,B3,C3合起來而不是單單雨個A1,C3合併起來

哈哈，是我理解錯了，這下明白你的意思了 很簡單，參數設為>>);

A LI CA TO~ 謝謝~ 可以啦~ 順便請問一下Rain怎樣寫向左對齊,靠上對齊~ 我試過 worksheet.cells[1,1].Alignment := xlTop; 會出現error

selina你好: AWorkSheet.Range['A1'].HorizontalAlignment := xlLeft; //向左對齊 AWorkSheet.Range['A1'].VerticalAlignment := xlTop; //靠上對齊

Thank you Rain!