@!84Enter eguations and press SolveTahomaTahomaTahoma pivot  piv k Solve:lrow=LastRow(2) lcol=LastCol(2) Sel(RangeRef(2,2,lcol,lrow)) Copy() a=1 for i=2 to lrow a=a+1 if And(CellRef(i,i)=0,i<lrow) for p=i+1 to lrow for r=lcol to 2 step -1 if CellRef(i,p)<>0 tmp=CellRef(r,i) Set(CellRef(r,i),CellRef(r,p)) Set(CellRef(r,p),tmp) end end end end if CellRef(i,i)=0 MsgBox("the matrix is singular") Paste() Return() end if CellRef(i,i)<>0 for j=lcol to i step -1 Set(CellRef(j,i),CellRef(j,i)/CellRef(i,i)) end for s=lrow to 2 step -1 for k=lcol to i step -1 if s<>a Set(CellRef(k,s),((-1)*(CellRef(i,s)*CellRef(k,i)))+CellRef(k,s)) end end end end end j=64 for i=2 to lrow x=Concatenate(x,Char(j+i)," = ",CellRef(lcol,i),Char(13)) end Paste() MsgBox(x)MatrixOTahoma( I iOArial( I iOArial( I iOArial( I iOArial( I iO Tahoma( I iO"Tahoma( I iO"Tahoma( I i  - -$($)$($)%-%M/d/yyd-MMM-yyd-MMMMMM-yyh:mm tt H:mmh:mm:ss ttH:mm:ssM/d/yyH:mm  K - K  K - K d.M.yyd.M.yy H:mm @ @ @ @   @ @@ @ IA d&?'?(?)?*,d#   & o    & @ ??? G @@?? / @