• ベストアンサー
※ 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月」という名前で保存したいです。

質問者が選んだベストアンサー

  • ベストアンサー
  • kon555
  • ベストアンサー率51% (1842/3558)
回答No.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月"のファイルでもないでしょうし。

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

質問する