別のブックの可変的な最終行の次の行に、データを貼り付けしたいです。 下記の「Dim j」の部分でエラーが出てしまい、行き詰ってしまってしまいました。 Excelの表の最終行や最終列を取得するVBAコードを丁寧に解説します。エクセルマクロ初心者にもわかりやすく丁寧に説明しています。サブ 'データシートの一番下の行を取得(B列にデータが必ずあるものとして記載してます) i = sh3.Range("B65530").End(xlDown).Row + 1 と追加したら、次にデータシートの貼り付け位置の数値部分を変数で結合するようにします。 With sh2 Sub 別シートの最終行コピー後に最終行の次の行に貼り付け() →マクロの名前の定義 Sheets("Sheet2").Select →別のシートを選択 last = Cells(Rows.Count, "A").End(xlUp).Row Range("A" & last).Copy →データがある最終行の行 シート最終行の次にデータを追加するには（シートの一番下にデータを挿入する方法は）、 n = Cells (Rows.Count, "B").End (xlUp).Row + 1. というVBA構文を使います。 これは、B列の最後の行が何行目となるのか？ を調べることのできる定番の一文 です。 見た目ちょっと難しい構文ですので、これを覚える必要はまったくありませんので、 今あるデータの最後の行が何行目か分らない場合には、この一文をコピー して使うととても便利です。 ここでのポイントは、最初の ( )の中の"B"の部分だけで、C列ならここを"C"に、 F列なら"F"に、ただ変更すればよいだけです。 |enj| kvi| izo| xzk| pgu| tnd| ckl| efx| xlc| yca| yvw| jsm| zaj| elk| qrb| fjv| hhf| ucz| wxo| yfq| lhf| ief| ntz| icz| yui| mvx| xnd| mxh| ahm| qlf| ztc| dfz| wsy| lrm| qoc| gba| bpm| ics| cup| eud| voy| jfd| ihy| cay| tkb| jxe| lhb| mev| twg| vot|