unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses CellCopyUnit;

{$R *.dfm}

//=============================================================================
//  エクセル操作フォームEx(の継承フォーム)をモーダル表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  //フォーム表示開始時に開くブック名
  //フォームのOnShowで設定してもよい
  plExcelFormEx2.xlfBookFullPath := 'CellCopyTestBook.xls';

  //表示時に選択するセル
  plExcelFormEx2.xlfActiveCell := 'A2';

  //行列番号を表示する
  plExcelFormEx2.xlfDisplayHeadings := True;

  //エクセル操作フォームEx(の継承フォーム)を表示
  plExcelFormEx2.ShowModal;
end;

end.

unit CellCopyUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, plExcelEx, ToolWin, ComCtrls, ExtCtrls;

type
  TplExcelFormEx2 = class(TplExcelFormEx)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  plExcelFormEx2: TplExcelFormEx2;

implementation

{$R *.dfm}

//=============================================================================
//  Button1クリックで実行
//  行(縦方向)方向のコピーの例
//=============================================================================
procedure TplExcelFormEx2.Button1Click(Sender: TObject);
begin
  try
    LockWindowUpdate(PanelLeft.Handle);

    //操作対象セル範囲をクリア
    xlfClearRange('B5','G25');

    xlfCopyCells('B4', 'B4', 'B25');
    xlfCopyCells('C4', 'C5', 'C25');
    xlfCopyCells('D4', 'D4', 'D25');
    xlfCopyCells('E4', 'E5', 'E25');
    xlfCopyCells('F4', 'F4', 'F25');
    xlfCopyCells('G4', 'G5', 'G25');
    xlfActiveCell := 'A1';
  except
  end;
  LockWindowUpdate(0);

  //保存したことにする(つまり変更なし)
  xlfBookSaved := True;
end;

end.