第一个bug,在删除多余变量是误删除了
//合并当前行
procedure UionCurrRowCell(CR:Integer);
var
i,SC:integer;//这里 i 误删除了

第二个bug,

//合并当前行
procedure UionCurrRowCell(CR:Integer);
var
i,SC:integer;
function GetNextCUCell(SC:Integer):Integer;
var
i:Integer;
begin
Result:=-1;
i:=SC+1;
while (Result=-1) and (i<C) do
begin
if MyCells[CR,i].Used then //修改这里
if (MyCells[CR,i].Text<>‘) then Result:=i;