作業用のシートを追加し、そのシート上で処理した結果を他シートに反映させる等は良く使うテクニックです。このような場合に使う、シートの追加と削除についてのVBA例文です。シートの追加・削除の基本および文法については、以下を参照してください。・シートのコピー・移動・削除の関連記事シートの追加・削除のVBA以下のVBAは、シートを新規追加し、その後に追加したシートを削除しています。Subブックの先頭に新規シートが作成されます。After:=Sheets(Sheets.Count)としてください。"新規シート"追加したシートのシート名の変更です。作業用のシートなら、特に名前の変更をする必要もありません。Falseシートを削除するときに出るアラートメッセージの表示を止めています。Sheets("新規シート").Deleteシートの削除です。Subこちらの方がスマート、と言いますか、より良い書き方と言えるでしよう。ActiveSheetは使わずにVBAを記述したほうが好ましいです。Sheets.Add(After:=Sheets(Sheets.Count))この場合のVBAの書き方として注意するのは、引数を()の中に入れる必要がある事です。オブジェクト変数に直接入れる場合は、このように記述します。これは、以下と同じことを1行のVBAで書いたものになります。ActiveSheetオブジェクト変数の使い方については、以下を参照してください。SubWithステートメントを使う事で、オブジェクト変数を定義する必要もなくなります。新規シートをあちこちで使用する場合には適しません。オブジェクト変数との適宜使い分けが必要です。Withステートメントの使い方については、以下を参照してください。・連続セル範囲の選択のまとめ1行置きにする行挿入(Insert)A列に連続データが入っているとします。これを1行置きにします。ポイントは下から行うことです。上からやると、どんどん下に追いやられてしまいます。これで、最終行を取得しています。・全てのシートを印刷するなら重複削除してコピー(AdvancedFilter)重複データを排除して、別シートにコピーする場合です。以下の表で説明します。フィルターオプションを使います。このマクロは、この指定と同じになりります。似たような方法ですが、コピー部分を自分で記述する場合です。これらのチェックをせずに開いてしまうと、マクロがエラー停止してしまいます。ここでは、これらのチェック方法についての具体的なVBAコードを紹介します。ブックを閉じる(Close)ブックを閉じる時の処理方法です。これは、次のように書くこともできます。保存しないで閉じる場合。罫線を簡単に引く(Borders,BorderAround)エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。見るTRIMRANGE関数(セル範囲をトリム:端の空白セルを除外)|エクセル入門(2024-08-30)正規表現関数(REGEXTEST,REGEXREPLACE,REGEXEXTRACT)|エクセル入門(2024-07-02)エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)無効な前方参照か、コンパイルされていない種類への参照です。Case)|VBA入門9.メッセージボックス(MsgBox関数)|VBA入門10.マクロとは?VBAとは?VBAでできること|VBA入門ホームマクロVBA応用編マクロVBAサンプル集シートの追加・削除(Add,Delete)このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。アクセスランキングサイトマップ事業案内お問い合わせホームマクロVBA応用編マクロVBAサンプル集シートの追加・削除このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。