カーソルのある行番号を取得しています。している)とすべきです。するようにしています。(0)通報するANo.1FEX2053OFFSETを使えばなんだかもっと簡単に出来そうですが、とりあえず今のプログラムを生かすならば、問題はこいつでしょう。Rows.Count)だと、A1にデータが入った時点でRange("A1")になりますよね。ここでいくら.End(xlUp).Rowをやっても、"1"しか出て来ませんよ。勉強中だということなので、解決のヒントだけ。両方を「特別扱い」にすりゃいいんです。他の考え方も出来ますが、わかりやすい発想はコレということで。lastr...VBAを勉強し始めた者です。VBAを勉強し始めた者です。