>>642
Range型は処理が激重なので、Cell(1,1)〜Cell(rn,cn)を扱う場合は、
x = Range(Cells(1,1),Cells(rn,cn)).Value の様に二次元配列xに値を納めてからやるべき。