![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
EXCEL データをコピーして別シートの最初の空白行に貼り付け
解決方法がわからず再度質問させていただきます。
どなたかご教示お願いいたします。
シート
1-1 毎月決まった項目のデータが入ります。
1-4 1-1の月データを一年分貼付
2-1 毎月決まった項目のデータが入ります。
2-3 2-1の月データを一年分貼付
3-1 毎月決まった項目のデータが入ります。
3-2 3-1の月データを一年分貼付
1,2,3と三種類ありますが、やりたいことは同じで、
1-1、2-1、3-1には毎月決まったデータを貼り付けています。
そのデータをそれぞれ1-4、2-3、3-2の前月の最終行の次に継ぎ足しで貼り付けたいのです。
(項目の下の空白行に貼り付けたい)
1-1と1-4、2-1と2-3、3-1と3-2の項目は同じです。
-----------------------------------------------------------------------------------
1-1
A1:O1に項目(A2:02以下にデータが入り、行はその月によりまちまちです)
Q2:R28にはA2:O2以下のデータをカウントしています。
1-4
A1:O1に項目
A2:O2以下に一年分のデータを自動的に貼り付け
-----------------------------------------------------------------------------------
2-1
A1:L1に項目(A2:L2以下にデータが入り、行はその月によりまちまちです)
N2:O15にはA2:L2以下のデータをカウントしています。
2-3
A1:L1に項目
A2:L2以下に一年分のデータを自動的に貼り付け
-----------------------------------------------------------------------------------
3-1
A1:K1に項目(A2:K2以下にデータが入り、行はその月によりまちまちです)
3-2
A1:K1に項目
A2:K2以下に一年分のデータを自動的に貼り付け
-----------------------------------------------------------------------------------
EXCEL2003です。
マクロは記録程度の知識しかなく、申し訳ないのですが、
ここの部分をどうしても自動的に行いたいのです。
どうかよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
それぞれの毎月分のデータを月末か月初に、年間シートに移植してるんですね。
元データのバックアップを取った上で、お試しファイルのほうでご確認ください。
********************************************************************************
Sub Harituke()
Dim k As Integer
Dim Rng As Range
Dim Ws(6) As Worksheet
Set Ws(1) = Worksheets("1-1")
Set Ws(2) = Worksheets("1-4")
Set Ws(3) = Worksheets("2-1")
Set Ws(4) = Worksheets("2-3")
Set Ws(5) = Worksheets("3-1")
Set Ws(6) = Worksheets("3-2")
For k = 1 To 5 Step 2
Set Rng = Ws(k).Cells(1, 1).CurrentRegion
Set Rng = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)
Rng.Copy Ws(k + 1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next k
For k = 1 To 6
Set Ws(k) = Nothing
Next k
Set Rng = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
アクセス2000で画像データ...
-
ブレーカー落ちで壊れたりしな...
-
R言語での行列の分割
-
【エクセル】測定時間がバラバ...
-
ポケコン PC-E650 の...
-
SDカード メーカーや値段によ...
-
ユーザーフォームのテキストボ...
-
不規則なデータのfft処理
-
C言語で2桁Hex文字列を10進...
-
シーケンサにパソコンからアク...
-
VBAでシートからコンボボックス...
-
抜き出しマクロ(3)
-
Excelの操作について。 〔〕を...
-
エクセルVBAプログラミング...
-
配列でデータが入っている要素...
-
RPGで誰が攻撃を受けるのかを決...
-
家計簿プログラム
-
メモ帳(テキストデータ)をExc...
-
逆離散フーリエ変換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
この行は既に別のテーブルに属...
-
VBAを使ってOutlookメール本文...
-
VBA 空白セルを削除ではない方...
-
S9タイプからXタイプにデータ...
-
多量のSUMIF式を軽くしたい
-
Accessで該当データにフラグを...
-
[C言語] コメント文字列を無視...
-
[エクセル]データの個数が2番目...
-
エクセルで2つの時系列のデー...
-
特定のデータの抽出方法を教え...
-
外部データの更新がうまくでき...
-
ActiveReportについて
-
CString型の文字列連結について
-
ユーザーフォームのテキストボ...
-
カンマからスラッシュに
-
シーケンサにパソコンからアク...
おすすめ情報