別シートの最終行に貼り付けするマクロを教えてください。
シートYのE3からE15までをコピー
シートZのC列から横一列に貼り付け
これをしたいのですが、貼り付ける際、
シートYには既にデータが入っているため、シートZの最終行の下に貼り付けたいです。
この二つをしたいです。
シートY
E
3 aaa
4 bbb
5 ccc
6 ddd
...
15 ppp
からE3-15をコピーし、
シートZ
C D E F .....O
最終行の1行下 aaa bbb ccc ddd ppp
このように出来るマクロを教えてください。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
#1です
#1でも ご質問の結果を出せると思いますが、
’配列に入れるやり方 値のみ のやり方を訂正します。
配列に入れているので下記のようにするべきでした。
Sheets("シートZ").Cells(Rows.Count, "C").End(xlUp).Offset(1).Resize(, UBound(ary)) = Application.Transpose(ary)
配列の大きさで範囲を設定する。
No.1
- 回答日時:
こんにちは、こんな感じでいかがでしょう
標準モジュールで
Option Explicit
Sub Sample_Arry() ’配列に入れるやり方 値のみ
Dim ary
ary = Sheets("シートY").Range("E3:E15")
Sheets("シートZ").Cells(Rows.Count, "C").End(xlUp).Offset(1).Resize(, 13) = Application.Transpose(ary)
End Sub
Sub Sample_Copy() ’書式を含めたコピーの場合
Sheets("シートY").Range("E3:E15").Copy
Sheets("シートZ").Cells(Rows.Count, "C").End(xlUp).Offset(1).PasteSpecial Transpose:=True
Application.CutCopyMode = False
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 範囲を指定して別シートにコピペ 2 2022/09/15 07:32
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
-
4
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
5
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
6
マクロ 最終列をコピーして最終列の次の列に挿入する
Visual Basic(VBA)
-
7
エクセル最終行の下に貼り付け
Excel(エクセル)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
オートフィルタで抽出したデータを別シートの最終行に追加させたい。
Excel(エクセル)
-
11
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
12
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
13
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
14
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
15
別のシートから値を取得するとき
Visual Basic(VBA)
-
16
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
17
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
18
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
19
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
20
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別シート参照のセルをシート毎...
-
エクセルでファイル保存時に複...
-
複数シートの特定の位置に連番...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルで前のシートを連続参...
-
excelでシート毎の最終更新日を...
-
Excel、同じフォルダ内のExcel...
-
エクセルの複数シートの保護を...
-
特定のシートの削除を禁止した...
-
VBAでシートコピー後、シート名...
-
Excelで同じシートのコピーを一...
-
EXCELで1ヶ月分の連続した日付...
-
VBA・オートフィルタで抽出・貼...
-
エクセル:ブックを開くとき、...
-
VBA セルの値と同じ名前のシー...
-
前の(左隣の)シートを連続参...
-
複数シートの固定のセルの値を...
-
エクセルVBAでパスの¥マークに...
-
EXCELで同一フォーマットのシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
前の(左隣の)シートを連続参...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL:同じセルへどんどん足し...
-
EXCELで1ヶ月分の連続した日付...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
EXCELで同一フォーマットのシー...
-
エクセルで前のシートを連続参...
-
エクセルで前シートを参照して...
-
VBAでシートコピー後、シート名...
-
Accessのスプレッドシートエク...
-
エクセルのシート名をリスト化...
-
複数シートの特定の位置に連番...
-
Excelのシートを、まとめて表示...
-
エクセル 計算式も入っていない...
-
スプレッドシートの関数VLOOKUP...
おすすめ情報