
別シートの最終行に貼り付けするマクロを教えてください。
シート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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
みんなに挑戦してほしい「色彩検定」
これまで多くの方々が受検したが「色彩検定」。その目的や活用法は人それぞれ。今回は、色彩検定に影響を受けた男女3名にインタビュー。
-
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
エクセル最終行の下に貼り付け
Excel(エクセル)
-
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
4
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
5
別のシートから値を取得するとき
Visual Basic(VBA)
-
6
マクロ 最終列をコピーして最終列の次の列に挿入する
Visual Basic(VBA)
-
7
エクセルVBA 別シートの最終セルにコピーする方法
Excel(エクセル)
-
8
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
ExcelのVBAで最終行の下にコピーする方法
その他(Microsoft Office)
-
11
最終行を取得して、別の列にコピーするマクロ
その他(Microsoft Office)
-
12
エクセルマクロにて最終行まで数式をコピーする構文
Excel(エクセル)
-
13
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
16
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
EXCEL:同じセルへどんどん足し...
-
5
別シートの最終行に貼り付けす...
-
6
複数シートの特定の位置に連番...
-
7
エクセルで前のシートを連続参...
-
8
Excelで金銭出納帳。繰越残高を...
-
9
エクセルで前シートを参照して...
-
10
エクセルで複数シートを別のシ...
-
11
特定のシートの削除を禁止した...
-
12
VBAでシートコピー後、シート名...
-
13
エクセル 計算式も入っていない...
-
14
シート番号からシート名を取得する
-
15
excelでシート毎の最終更新日を...
-
16
エクセルのシート名をリスト化...
-
17
別シート参照のセルをシート毎...
-
18
エクセルでファイルを開いたと...
-
19
シートの保護のあとセルの列、...
-
20
エクセルでシート数が増加する...
おすすめ情報
公式facebook
公式twitter