ここから本文です

Excelのシート内(Sheet1)に、小計を利用した改ページが40ページ程あり(セルの列は...

kii********さん

2017/5/1014:41:37

Excelのシート内(Sheet1)に、小計を利用した改ページが40ページ程あり(セルの列はB~T)、このデータを改ページごとに、各シートへ分割し貼り付けたい。
マクロを使って作業可能でしょうか。

貼り付けるシートは、既に使用しているシートで名前は連番になっています。
(月によって替わるのですがH29-S9-1~H29-S9-x)
貼り付けるシートのセル列はA~Sで 貼り付けるセルA58~です。
初心者です。
宜しくお願いします。

閲覧数:
69
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

ann********さん

2017/5/1016:40:19

よくわかりませんが、下図のようなことでしたら――

任意改ページ単位に、順次右側のシートにコピーします。
ただし、コピー先のシートはすでに存在しているという前提です。

Sub Test()
Dim i, pg, HPB, sttR, endR, finR
Sheets(1).Activate
pg = ActiveSheet.HPageBreaks.Count
sttR = 1
finR = Cells(Rows.Count, 2).End(xlUp).Row
Set HPB = ActiveSheet.HPageBreaks
For i = 1 To pg
endR = HPB(i).Location.Row - 1
Sheets(1).Range(Cells(sttR, 1), Cells(endR, 20)).Copy _
Sheets(i + 1).Range("A58")
sttR = endR + 1
Next
Sheets(1).Range(Cells(sttR, 1), Cells(finR, 20)).Copy _
Sheets(i + 1).Range("A58")
End Sub

コピーファイルで試してみてください。

よくわかりませんが、下図のようなことでしたら――

任意改ページ単位に、順次右側のシートにコピーします。...

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる