- ベストアンサー
シートの最終行から別のシートのセルをコピーしたいのですが
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
r=Range("A65536").End(xlUp).Row で変数rに最終行の行番号が取得できます。 エクセル2007の場合はもっと下まで使えるようですので"A65536"をかえて下さい。
その他の回答 (2)
- pbforce
- ベストアンサー率22% (379/1719)
Sheets("Sheet1").Cells(r,1)=Sheets("Sheet2").Range("D2") もちろん =Sheets("Sheet2").Cells(2,4) でもOKです。
お礼
早々ご回答ありがとうございました。 今、やってみました。 思ったとおりにできました。 これで、毎日データが追加できます。本当にありがとうございました
- hana-hana3
- ベストアンサー率31% (4940/15541)
＞最終行の次の行はどうすればいいのですか？ 最終行 + 1 です。 r=Range("A65536").End(xlUp).Row + 1 若しくは、 r=Range("A65536").End(xlUp).Row r=r+1
お礼
できるようになりました。ありがとうございました。
補足
ありがとうございます。 r=Range("A65536").End(xlUp).Row + 1 Range(Cells(ｒ, 1).Value = range("sheet2!D2") もしくは Range("ar").Value = Range("sheet2!D2") ですか？ どちらかでコピーが出来ますか？(ｒ, 1)がいまいち判らないのですがよろしく
関連するQ&A
- シート内の一部のセルを別シートにコピー
Excelのマクロ(VBA)の記載方法について お分かりになる箇所だけでも結構ですので、 どなたかご教授を願い致します。 シートX A B C 1 data1 data2 data3 2 x data7 data8 3 data4 data5 data6 4 data7 data8 data9 シート Y A B C D 1 length ３ (任意) (任意) 2 xxxx (任意) (任意) (任意) 3 zzz (任意) (任意) (任意) 4 (空白)(任意) (任意) (任意) 上記のような２つのシート(同一Excelファイル内)があって、 シートXの一部のセルを次の条件(１～４)でシートYにコピーしたい場合 １．コピー元の列の数は、シートYの "length"と書かれたセルの右となりの数字 とする(上記では３なので、A,B,C列をコピー対象） ２．コピー元の行の数は、シートXの１～４行目までとするが、 シートXのA列のセルが"x"だったら、その行は全てコピーしない。 ３．コピー先(Y)の列は、コピー元(X)の列と一つずれてコピー(BならCに、CならDに) ４．コピー先(Y)の行は、シートYのA列で１行からで始めて空白セルになった行からコピー開始。 (上記では、A列で空白セルのある４行目からコピー) 上記条件で、下記のシートYを作成したいのですが、 この場合どようなマクロ(VBA)で実現できますでしょうか。 コピー結果(シートY) A B C D 1 length ３ (任意) (任意) 2 xxxx (任意) (任意) (任意) 3 zzz (任意) (任意) (任意) 4 (空白) data1 data2 data3 5 (任意) data4 data5 data6 6 (任意) data7 data8 data9
- ベストアンサー
- オフィス系ソフト
- エクセルで文字最終行の空白セルへ移動
エクセル２０００です。 １０００行内で間にとびとび（順不同）に空白セル、他は文字有りです。 （１０００行目は文字あり） シートが１０個あり、各シートともばらばら（ウィンドー枠固定位置）ですが、ウィンドー枠固定内の行に「最終行へ移動」のボタンを設け、いずれの行からも、最終文字入力の次の行空白セル（ＡからＺ列のいずれか）へ移動したいです。 方法がありますでしょうか？ ＶＢＡの場合、素人につきＶＢＡへの入力方法等も一緒にお願いします。またＶＢＡの場合、ソフトを立ち上げたら直ぐに実行できるようにしたいです。（立ち上がり時のマクロ警告はあり） よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBAを使って検索したセルを別のシートにコピーする
こんにちは。 業務でエクセルを使用して差し込み文書を印刷しています。 量が多いのでＶＢＡを使って簡単に作業したいです。 まず、以下のようなシートがあります。 ＜Sheet１＞差込文書 ＜Sheet２＞ （Ａ） （Ｂ） （Ｃ） （Ｄ） （Ｅ） （Ｆ） 番号｜会社名｜支店名｜役職名｜氏名｜会社、支店名、役職名、氏名 次のような作業をさせたいです。 １．<sheet２＞のＡ列と同じ番号が＜sheet1＞の（Ｌ１）にあるかどうか検索する。 ２．もし、一致するセルがあれば、<sheet2>の該当番号の行のＦ列を<sheet１＞の（Ｂ５）にすべて（書式ごと）コピーする。 以上です。 VLOOKUP関数でしましたが、すべてをコピーする事ができなかったので、ＶＢＡでコピーしたいです。 Ｆ列は、個人名だけの方、支店がない会社などがあるため、バランス良く配置しているセルです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- VBA 今日の行にあるセル コピー 別シートへ
(1)sheet1にボタン button1 があり、そのボタンを押すと、マクロが起動する。 (2)データは sheet2 貼り付け先は sheet3 sheet2 F列に日付が入っています。 F列は、日付（過去～本日まで ※未来の日付はありません）か、空白の場合があります。 F列の日付が本日のとき、 sheet2 A列のセルの値を sheet3 B列へ。 A列には連番。 sheet2 D列のセルの値を sheet3 C列へ。 sheet2 G列のセルの値を sheet3 D列へ。 sheet2 F列のセルの値を sheet3 E列へ。 それぞれ、Sheet3の各行の一番下に貼り付ける形をとりたいのです。 こちらでマクロはどうしたらよいのでしょうか。
- ベストアンサー
- オフィス系ソフト
- VBA 他シートを参照しているセルのコピー
お世話になります。 以下のシートがあります。 [sheet a] A B C D E 1 2004 2005 2006 2007 2008 2 =b!A2 =b!C2 =b!E2 =b!G2 =b!I2 3 10 15 16 4 11 4 12 30 20 9 2 5 =SUM(A3:A4) =SUM(B3:B4) =SUM(C3:C4) =SUM(D3:D4) =SUM(E3:E4) [sheet b] A B C D E F G H I J 2004 2005 2006 2007 2008 1 あ１ い１ う１ え１ お１ か１ き１ く１ け１ こ１ 2 あ２ い２ う２ え２ お２ か２ き２ く２ け２ こ２ ・・・・・・・・・ [sheet a]F列以降に入れるデータは、VBA（マクロ）を使って、別のブックから取り出しています。 (例) F1…=E1+1（E1の数式をコピー） F3,F4…任意の値（別のブックからコピー） F5…=SUM(F3:F4)（E5の数式をコピー） 1行目,5行目の場合は左のセルをコピーして数式を貼り付けると、列が自動的に列が変わりますが、2行目の場合は元のシートを1行おきに参照しているので、単純にコピーしただけでは正しい数式が入りません。 2行目の参照をVBAで作るには、どのようにしたらいいでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- sheetの末尾にコピーする方法
エクセルＶＢＡで売上帳を作っています。 ひとつのbookで、売上帳sheetと入力用sheetを作っています。 入力用sheetから売上帳sheetへコピーする際に、売上帳sheetが３行目で終わっていたら、次は４行目から、というふうにしたいのですが、できません。 下のコードで実行すると、売上帳sheetの表の最終行からの貼付けになってしまいます。 Sub 売上() 行番号 = Range("最終行").Row - 2 '入力用sheetの最終行の2行上の行番号取得し「行番号」に代入 セル = "F" & 行番号 Range("B8:" & セル).Select Selection.Copy '入力用sheetの対象部分をコピー Worksheets("売上帳").Activate '売上帳シートをアクティブにする 行 = Range("G4").CurrentRegion.Rows.Count + 1 'アクティブセル領域の行数 + 1 Range("G" & 行).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '値の貼り付け End Sub どなたか教えてください。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのセルを参照して別シートに張り付ける２
こんにちは。 エクセルのsheet１とsheet2があり、sheet1のセルに入力されている文字や数値をsheet2にコピーしたいと思っています。（sheet2には値として張り付けたい） ＜条件＞ sheet1の3行目から下（3000行目まで）をコピーしてsheet2の2行目から下（3000行目まで）に張り付けたい。 しかし、下記のように列も入れ替えたい。下記以外はコピーしない。 sheet1 sheet2 A → A G → B H → I M → G Q → K R＋S → L （sheet1のR列とS列の文字を結合したもをsheet2のL列に） T → M U → N このような作業を1回で行うことはできるのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 表示されているセルの最終行を取得したい
.End(xlDown)でデータが入力されている最終行がわかりますが、 セルA1に1、セルA2に1、セルA3には、式が入っているが何も表示されていないとき セルA2がアクティブセルになるようにVBAで簡単に記述できないですか?
- ベストアンサー
- Excel（エクセル）
- 複数のシートを１つのシートにコピーしたい
VBA初心者です。よろしくお願いします。 【状況】 １つのワークブックの中に『まとめ』という名前のシート、それ以外にコピーしたいシートが複数あります。 コピーしたくないシートもあります。 まとめを一旦クリアし、コピーしたいシートだけをコピーして貼り付けたいです。 まとめシートもコピーしたいシートも、データの入っているセルは"B5"から始まり、M列までの任意の行までデータが入っています。（B5：M？） 【やりたいこと】 コピーしたいシートのみ、データの入っている範囲をコピーして、まとめシートに貼り付けたい。 最終行を取得するVBAはいろいろなサイトを参考に書くことができたのですが、そこから"B5"までの範囲を指定してコピーをするという方法がいまいち分かりません。 参考にしたサイトはA1～特定の範囲のみ選択というものばかりで・・・。 稚拙ながら途中まで書いたコードです。 (1)Sub B5から最終セルの選択とコピー() (2)Range("B65536").End(xlUp).Offset(0, 11).Select (3)Range("B5", ※).Copy (4)End Sub ※に(2)で取得した最終セルを代入したいのですが方法が分からず・・・。 ここでまず躓いてしまっています。 どうかお知恵を貸して下さい。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 条件の一致した行を他シートへ
VBAに関して質問なのですが 一行の中で指定した複数のセル全てが入力されている行を 他シートの空白最終行へ転記したい場合のVBAがうまくいきません。 どなたかわかる方があれば御教示頂ければと思います。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
補足
早速ありがとうございました。最終行は判りましたが、最終行の次の行はどうすればいいのですか？ セル番号はどのようにつければいいのですか？もう少し具体的に教えていただくとありがたいです。 ちなみにエクセル２００３です。