一個不知所雲的問題，是關於excel的。。想不到。。

Question

以下是原代碼，不知為什麼粘貼上去後在excel當中看不到任何不同一個就是一個但是在預覽當中卻有兩個我粘貼的內容。而且是接著的。。
if (j=3) and not query3.Eof then
      begin
   
      excelworksheet1.Range['a9','l9'].Copy(EmptyParam);
 
      excelworksheet1.Range[excelworksheet1.Cells.Item[d1+8,1],excelworksheet1.Cells.Item[d1+8,12]].Select;
      excelworksheet1.Paste;
      excelworksheet1.Range[excelworksheet1.Cells.Item[d1+8,1],excelworksheet1.Cells.Item[d1+8,12]].RowHeight:=77.25;
       end;
           end
      else
       begin
      d2:=j mod 3;
      if (((j mod 3)=0) and (j<>3) and (not query3.Eof)) then
       begin
       x:=x+15;       d1:=x;
   
       if (((j mod 3)=0) and not (query3.Eof)) then
       begin       excelworksheet1.Range['a9','l9'].Copy(EmptyParam);
       excelworksheet1.Range[excelworksheet1.Cells.Item[d1+8,1],excelworksheet1.Cells.Item[d1+8,12]].Select;
       excelworksheet1.Paste;
  
       excelworksheet1.Range[excelworksheet1.Cells.Item[d1+8,1],excelworksheet1.Cells.Item[d1+8,12]].RowHeight:=77.25;
       end;
       end;

Answer 1

if (j=3) and not query3.Eof thenif (((j mod 3)=0) and not (query3.Eof)) thenj=3是两句是一个意思，不知道是不是这个原因

Answer 2

我跟蹤了幾次它都沒有重復粘貼的跡象，有點像是我粘一次就會在它的上一欄也粘一次，但是程序當中沒有體現。excel當中也看不到就是預覽和打印有。