質問: wrow3 + 1 End If Next End Sub
回答: >値が入っている値のすぐ下に貼り付け 対象のセルが見つかっているなら Offsetを使用する 今回は列はそのままで行は一つとの頃なので Range("A1").Offset(1, 0) = "AA" ↑ Offset(Row, Col)