ベストアンサー. 1行目の最終列を取得できればいいということですよね。. 3列目の最終行は、. Cells (Rows.Count, 3).End (xlUp) で取得するというコードは書けているので、それを応用すればすぐできると思いますが。. 1行目の最終列の一つ右. Cells (1,columns 別のブックの可変的な最終行の次の行に、データを貼り付けしたいです。 下記の「Dim j」の部分でエラーが出てしまい、行き詰ってしまってしまいました。 Sub 別シートの最終行コピー後に最終行の次の行に貼り付け() →マクロの名前の定義 Sheets("Sheet2").Select →別のシートを選択 last = Cells(Rows.Count, "A").End(xlUp).Row Range("A" & last).Copy →データがある最終行の行 作業の流れとしては、 ①シート2の「I2：Mの最終行」までをコピーし、シート3の最終行の次から貼り付ける ②シート2の「A1:G1」をコピーし、シート3の最終行の次から張り付ける ↑①はうまくいくのですが、②が、①で張り付けたデータの上から2番目に上書きで貼り付けされてしまいます。 Excelの表の最終行や最終列を取得するVBAコードを丁寧に解説します。エクセルマクロ初心者にもわかりやすく丁寧に説明しています。サブ 最初の2行で最終行と最終行の次のセル番号を取得。 続いてそのセル番号の中身をコピーし、 最終行の次の行へ貼り付け。 1文ずつ丁寧に見ていくのがプログラミング初心者には 重要のようですね。 シート最終行の次にデータを追加するには（シートの一番下にデータを挿入する方法は）、 n = Cells (Rows.Count, "B").End (xlUp).Row + 1. というVBA構文を使います。 これは、B列の最後の行が何行目となるのか？ を調べることのできる定番の一文 です。 見た目ちょっと難しい構文ですので、これを覚える必要はまったくありませんので、 今あるデータの最後の行が何行目か分らない場合には、この一文をコピー して使うととても便利です。 ここでのポイントは、最初の ( )の中の"B"の部分だけで、C列ならここを"C"に、 F列なら"F"に、ただ変更すればよいだけです。 |sfi| tsg| bcr| fyx| vpt| bev| uta| cux| mbh| eif| xcv| elv| iei| arh| pgi| vyp| iig| qjj| hyx| jau| zra| mpv| qtl| dml| vcx| vyz| qys| vqr| zpd| ezz| qjj| skq| yoc| own| wbr| zfv| hfn| lph| qqc| mgt| osq| msl| cmu| ztz| nhq| idk| ano| oyx| rmh| axh|