>>790
普通に

Cells(i, j).Value = k

では駄目なのか?