質問: 自分のPCでExcelを使い労務管理のデータを作り、担当者のPCに移動してデータを起動させたのですが、書式がコピーしきれていませんでした。自分のPCでテストした時はコピーできていたのですが、どうすれば治るのでしょうか? ![本来](https://teratail.storage.googleapis.com/uploads/contributed_images/b42a93b9e9f740d43e9ee4c475cebab9.png) ![担当者のPC](https://teratail.storage.googleapis.com/uploads/contributed_images/c1496865fec11cfa3f540b7aec7a1986.png) 労務管理のデータの仕組みとしては、 入力用のブックに1月ごとにシートで労務管理し、 年度別で保存用のブックをマクロで作成し、入力用ブックで作った月別シートをその年度のブックに追加(コピー)していくように作りました。 下記が入力用ブックから保存用ブックにコピーする部分です。 ActSheetがコピーするシートで、MothNameは保存用ブック、ReNameSheetが保存用シートの名前が入っています。 Worksheets(ActSheet).Cells.Copy Workbooks(MothName & ".xlsx").Worksheets(ReNameSheet).Range("A1") よろしくお願いします。
回答: セルとしてコピーを行っているようですので、列幅・行高さといった情報がうまくコピーできていないのではないでしょうか。 みたところシートの内容を丸ごとコピーしているだけのようですので、シートとしてコピーし、コピー後にシート名を変更するといった方法で対応してはどうでしょうか。 ``` Worksheets(ActSheet).Copy Workbooks(MothName & ".xlsx").Worksheets(1) ActiveSheet.Name = ReNameSheet ```