0796デフォルトの名無しさん (アークセー Sxc5-dWLu)
2019/11/23(土) 19:56:27.67ID:mhmkRKEvx仕様ではなくて君のコードの動作の問題
同じ綴りのオブジェクト式の記述をまとめる文法ルールとしてWithを理解するのは大きな間違い
Withで任意のセルを取得して和のセルに貼り付けたらEnd Withまでずっと貼り付けられた先のセルを参照する
その状態で.Valueに値を代入したら、当然貼り付けられたセルの値が変わる
With Cells(i, j)
.Cut .Offset(1,0)
End With
Cells(i, j).Value = k
とすれば何の問題もない