請教各位先進，小弟把DBGRID轉成EXCEL後的報表假設如下:  
andy *******
andy *******
andy *******
jack *******
jack *******
jack *******
irene *******
irene *******
irene *******
我要如何用名字的不同來判斷增加一列，也就是andy 與 jack中間要插入一列，jack與irene中間要插入一列，或是有其他方法可判斷，請各位先進幫幫小弟！感激不盡！

你先在Exel內內錄製巨集的方式取得"搜尋"及"插入上一列"的VBA
再參考這篇
delphi 控制操作，怎么替換WORD里面頁眉的文字？

------
努力會更接近成功

如果你是自己用迴圈匯出Excel那就方便了
ExcelApp.cells(i,j)=xxx
只要判斷目前這筆資料和上筆資料是否相同,
如果不同就i:=i 1;這樣就空一列了

各位大大先進們:
小弟也是用資料的不同去判別來增加一列，但最後一筆資料結束會有問題，因為資料量不確定，所以
小弟用WHILE迴圈寫的，以下是我的程式碼
y為資料筆數
DBGrid.DataSource.DataSet.First;
y:=3;
while not DBGrid.DataSource.DataSet.eof do
begin
if StrToInt(MyExcel.WorkBooks[1].WorkSheets[2].cells[y,3].value) <> StrToInt(MyExcel.WorkBooks[1].WorkSheets[2].cells[y-1,3].value) then
begin
MyExcel.WorkBooks[1].WorkSheets[2].rows[y].insert;
inc(y);
end;
inc(y);
DBGrid.DataSource.DataSet.next;
end;
當資料最後一筆時會出現問題，請各位大大能幫我看一下嗎？感恩！

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

可否在轉 excel 的過程中就處理空一列的問題, 不要在轉完 excel 後再來處理

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.