- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：複数sheet(可変）を別bookにコピーする）
Excel VBAを使用して複数のシートを別のブックにコピーする方法
このQ&Aのポイント
- Excel VBAを使用して、複数のシートを別のブックにコピーする方法について質問です。現在、毎月月末に行っている手作業をマクロ化したいと考えています。具体的には、20個のシートのA1からD80のセルの値を全て削除し、一部のシートではA1の値を次月の同じシートのK1にコピーした後、新しいブックとして「10月」という名前で保存したいと思っています。
- Excel VBAを使用して、複数のシートを別のブックにコピーする方法を教えてください。具体的には、20個のシートのA1からD80のセルの値を全て削除し、一部のシートではA1の値を次月の同じシートのK1にコピーした後、新しいブックとして「10月」という名前で保存したいです。
- Excel VBAを使用して複数のシートを別のブックにコピーする方法についてお教えください。現在、手作業で行っている作業をマクロ化したいと考えています。具体的には、20個のシートのA1からD80のセルの値を一括削除し、一部のシートではA1の値を次月の同じシートのK1にコピーした後、新しいブックとして「10月」という名前で保存したいです。
- gogowoman
- お礼率25% (1/4)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
可能です。VBAが得意とするタイプの自動化ですね。 Sub シート値削除() Dim i As Long For i = 1 To Worksheets.Count If Worksheets(i).Range("A1").Value = 10 Then Worksheets(i).Range("K1") = Worksheets(i).Range("A1") Worksheets(i).Range("A1:D80").ClearContents Next End Sub 例えばこれで全シートのA1からD80のセルの値がクリアされます。 「sheetによってはA1セルの～」と言う辺りも、条件が明確ならば簡単に実装可能です。今回は適当に、A1セルの値が10だった時としてみました。 ただ保存の辺りは、一つ間違えるとファイル名を間違えたり上書きしてしまったりとやや注意が必要なので、ここは手動でやってしまう方がいいかな、と個人的には思います。毎回"10月"のファイルでもないでしょうし。
