ExcelでVBAを使ってシートを別のブックに貼り付けると書式がおかしくなります

Question

自分のPCでExcelを使い労務管理のデータを作り、担当者のPCに移動してデータを起動させたのですが、書式がコピーしきれていませんでした。自分のPCでテストした時はコピーできていたのですが、どうすれば治るのでしょうか？

労務管理のデータの仕組みとしては、
入力用のブックに1月ごとにシートで労務管理し、
年度別で保存用のブックをマクロで作成し、入力用ブックで作った月別シートをその年度のブックに追加（コピー）していくように作りました。
下記が入力用ブックから保存用ブックにコピーする部分です。
ActSheetがコピーするシートで、MothNameは保存用ブック、ReNameSheetが保存用シートの名前が入っています。
Worksheets(ActSheet).Cells.Copy Workbooks(MothName & ".xlsx").Worksheets(ReNameSheet).Range("A1")

よろしくお願いします。

Answer 1

セルとしてコピーを行っているようですので、列幅・行高さといった情報がうまくコピーできていないのではないでしょうか。

みたところシートの内容を丸ごとコピーしているだけのようですので、シートとしてコピーし、コピー後にシート名を変更するといった方法で対応してはどうでしょうか。

Worksheets(ActSheet).Copy Workbooks(MothName & ".xlsx").Worksheets(1)
ActiveSheet.Name = ReNameSheet

Comments

[wks]

回答有難うございました。今までのコードよりも簡単にコピーでき、行数も少なく済みました。
今のところエラーもなく動いています。ありがとうございました。