【ピポットテーブル⑩】参照範囲・データソースの変更方法とよくあるエラーと対処法について ► 独学エクセル塾 (dokugakuexcel.com)

データの項目を追加していくとテーブルの範囲が増えてくことで、他のピポットテーブルに重なって、
「ピポットテーブル　レポートは、ほかのピポットテーブル　レポートと重なり合うことはできません。」

というエラーが出たりします。新しくテーブルを追加する際にも起きるエラーです。

そこで今回の記事ではピポットテーブル移動方法について紹介したいと思います。

同じシート内・別のシートへの移動についてもまとめてますので是非参考にしてみてください。
それでは見ていきましょう。

■ピポットテーブルの移動の必要性

まずはピポットテーブルの移動の必要性について紹介します。

ピポットテーブルを移動させたい方は

・ピポットテーブルが重なり合うエラーを防止する
・データを整理するために指定の位置・シートに移動させる

に当てはまるのではないかと思います。

データ整理であれば大きな問題はありませんがエラーは分析・表示ができなくなるので
即対応が必要です。

ではエラーの内容を見てみましょう。

・ピポットテーブル　レポートは、ほかのピポットテーブル　レポートと重なり合うことはできません。

こちらのエラーは先ほども述べた通り、複数のピポットテーブルが重なり合っている可能性があります。
下図の見本をご覧ください。

テーブルのデータは2行目から21行目まであります。
このテーブルにフィルターをかけてみたいと思います。

テーブルのデータは2行目から8行目までになりました。。
では空いたスペースに別のピポットテーブルを置いてみましょう。

この状態でもともとあったピポットテーブルのフィルターを解除すると
新しく作成したピポットテーブルが邪魔で、データを表示できなくなるために
「ピポットテーブル　レポートは、ほかのピポットテーブル　レポートと重なり合うことはできません。」
といったエラーが出る仕組みです。

そのため複数のピポットテーブルを同じシート内に置く場合は重ならないように距離を開けて作成する必要があります。
１シートに１つのピポットテーブルだと重なり合うことがないのでデータの規模が不明な場合はシートを分けた方がいいかもしれません。

項目の追加などで新しくピポットテーブルが重なり合うことが発覚した場合は
本記事であるピポットテーブルの移動が役に立ちます。

では実際に移動方法について見ていきましょう。

■ピポットテーブルを移動させる

ピポットテーブルは同じシート内でも別のシートにも移動させることができます。
それぞれの移動方法を見ていきましょう。

・同じシート内に移動させる

こちらはマウスのドラッグ＆ドロップで移動させる方法と「ピポットテーブルの移動」の機能を使用する2種類紹介したいと思います。

①ドラッグ＆ドロップ

まずマウスのドラッグ＆ドロップについて紹介したいと思います。
初めに移動させたいテーブルの範囲をすべて選択します。
ここで全て選択をしないとエラーが発生して移動させることができません。

次に選択したピポットテーブルの外枠をクリックしたままにします。
下図のようなマークの状態でクリックしないと移動できません。

クリックしたまま移動させたい場所までカーソルを持っていき
離せば（ドラッグ＆ドロップ）任意の場所へ移動させることができます。

②「データテーブルの移動」の機能を使用

まず、移動させたいデータテーブルを選択します。
ピポットテーブル内であればどこでも構いません。

すると「ピポットテーブル　ツール」のメニューが表示されました。
さらに「分析」を選択すると「ピポットテーブルの移動」という項目があります。

「ピポットテーブルの移動」を押すと下図のようなメニューが出力されます。

既存のワークシートにチェックがしてあり、場所には「’データ (2)’!$J$2」と書いてあります。
これはシート名とピポットテーブルの一番左上の番地を意味します。

意味合いはこのようになります。

場所＝’シート名‘$列$行

見本のピポットテーブルのシート名は「データ（2）」というシートにあり、一番左上は「J列の2行目」なので
このような出力方法となっています。

つまり、この場所の番地を任意の場所の番地に打ち換えれば移動させることができます。
例えば「R列の5行目」に移動させたい場合は「’データ (2)’!$R$5」となりますね。

ちなみに移動させたいセルを選択すると自動で番地が入力されるのでとても便利です。

・別のシート/新しいシートに移動させる

先ほどは同じシート内での移動を見てきましたが
今度は別のシートまたは新しいシートに移動させる方法を見ていきましょう。

使用するのは先ほど使用した「ピポットテーブルの移動」を使用します。

では「ピポットテーブルの移動」を押してみましょう。

もう一度場所の意味合いを見てみましょう。

場所＝’シート名‘$列$行

つまりシート名に当てはまる部分を別のシート名に打ち換えて番地を入力すれば任意のシート＆場所に移動できます。
また、打ち換えなくても場所の入力部を押して移動させたいシート＆番地をクリックしても移動させることができます。

例を見ていきましょう。
例えばシート名が「ピポットテーブル」の「G5」に移動させたいときは
「ピポットテーブル」の「G5」をクリックするか、場所に「ピポットテーブル!$G$5」と入力すれば
移動させることができます。

もう1パターン見てみましょう。
現在選択しているピポットテーブルを新しいシートに移動させる方法についてです。

使用する機能は先ほどと同様の「ピポットテーブルの移動」を使用します。
その中に新規ワークシートの項目がありますね。

「新規ワークシート」にチェックを入れてOKを押すと自動的に新しいシートを作成し、
新規ワークシートにピポットテーブルも移動させることができます。

■まとめ

いかがだったでしょうか。
ピポットテーブルを複数使用する場合は同じシート内で複数のピポットテーブルを作成するかと思いますが
重なり合うことがないようにレイアウトを考えながら作成してみてください。

次回はピポットテーブルの更新について紹介したいと思います。
元データを打ち換えても更新ができなければピポットテーブルは活用できません。

次回の記事はこちらから☟

【ピポットテーブル⑫】選択・すべてのピポットテーブルの更新、ファイルを開くときに更新する設定方法 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

【VBA知識 12】別のシートをアクティブ・選択する方法について ► 独学エクセル塾 (dokugakuexcel.com)

今回はシート操作の中でも

シートを作成する・ブック内・外へコピーする・削除する操作をご紹介します。

シートをアクティブにする操作に加え、今回の記事を身につけると

シート関係の操作は網羅できるようになります。

ぜひ参考にしてみてください。

それでは見ていきましょう。

■シートを作成する

・通常作成

ではまず、シートの作成を行いたいと思います。

早速シートを作成するプログラムを見てみましょう。

Worksheets.Add

こちらで新規のシートを作成できます。
ではプログラムを作成してみましょう。

Sub シートの作成()

Worksheets.Add

End Sub

では実行してみます。

実行前は「Sheet1」と「Sheet2」しかない状態です。

この状態で実行すると…

あたらしく「Sheet3」が作成できました。

・指定したシートの前・後にシートを作成

今度は指定したシートの前後にシートを作成してみましょう。

シート作成は先ほどの「Worksheets.Add」で構いません。
この後にプログラムを追記していきます。

ではプログラムを見ていきましょう。

前に追加：Worksheets.Add Before:=Worksheets(“指定シート名”)
後に追加：Worksheets.Add After:=Worksheets(“指定シート名”)

単語の意味通り前に追加したいときは「Before」で後に追加したいときは「After」です。
では見本を通して説明したいと思います。

「基準」というシートを指定シートとして

「基準」シートの前後に新しいシートを追加してみましょう。

「基準」シートの前に新しいシートを追加するプログラムはこのようになります。

Sub シートの作成()

Worksheets.Add Before:=Worksheets(“基準”)

End Sub

実行すると…

うまく機能していますね。

対して「基準」シートの後に新しいシートを追加するプログラムはこのようになります。

Sub シートの作成()

Worksheets.Add After:=Worksheets(“基準”)

End Sub

実行すると…

どちらもうまく機能していますね。

・○番目にシートを追加する

今度は番号を入力して指定した番号の順にシートを作成してみましょう。
プログラムは下記の通りです。

指定番号前に追加：Worksheets.Add Before:=Worksheets(“数値”)
指定番号後に追加：Worksheets.Add After:=Worksheets(“数値”)

では下記の見本をもとに説明しています

今回は２番目にシートを追加してみましょう。
つまり「Sheet1」と「Sheet2」の間に新しいシートが追加していきます。

ではプログラムは下記の通りです。

Sub シートの作成()

Worksheets.Add After:=Worksheets(1)

End Sub

このプログラムで１番目のシートの後に新しいシートを追加することができます。
実行の結果はこのようになります。

うまく機能していますね。

■シートに名前を付ける

今度はシートに名前を付けてみましょう。
プログラムはこのようになります。

ActiveSheet.Name = “プログラム名”

では実践です。

今回は「Sheet2」に「あいうえお」と名前を付けてみましょう。

プログラムは下記の通りです。

Sub シートの名前の変更()

ActiveSheet.Name = “あいうえお”

End Sub

では実行してみましょう。
実行した結果はこちらです。

あいうえおに変更することができました。

■シートをコピーする

・ブック内にシートをコピーする

次はシートのコピーです。
プログラムはこのようになります。

指定シート前にコピー：

Worksheets(“シート名”).Copy Before:=Worksheets(“指定シート名”)

指定シート後にコピー：

Worksheets(“シート名”).Copy After:=Worksheets(“指定シート名”)

では実践です。
下記の「あいうえお」のシートを基準に「あいうえお」の後にコピーしてみましょう。

プログラムはこのようになります。

Sub シートのコピー()

Worksheets(“あいうえお”).Copy After:=Worksheets(“あいうえお”)

End Sub

実行した結果がこちらです。

コピーができました。
Beforeでプログラムを組むと「あういえお」の前にコピーできます。

さらにシートの作成で紹介した番号でシートのコピーも可能です。

例えば１番最初にシートをコピーしたいときはこのようになります。

Sub シートの作成()

Worksheets(“あいうえお”).Copy Before:=Worksheets(1)

End Sub

・別のブックへコピーする

先ほどは同じブック内での作業でしたが今度は別のブックにコピーしてみましょう。
プログラムはこのようになります。

指定シート前にコピー：

Worksheets(“シート名”).Copy Before:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

指定シート後にコピー：

Worksheets(“シート名”).Copy After:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

今回は「Book1のあいうえお」のシートを「Book2の先頭」にコピーしてみましょう。

プログラムはこのようになります。

Sub シートのコピー()

Worksheets(“あいうえお”).Copy Before:=Workbooks(“Book2.xlsx”).Worksheets(1)

End Sub

それでは実行してみましょう。

Book2の先頭に「あいうえお」のシートをコピーすることができました。

■シートを移動する

次はシートの移動です。
移動はコピーとほとんど同じプログラムになります。

プログラムはこのようになります。

指定シート前に移動：

Worksheets(“シート名”).Move Before:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

指定シート後に移動：

Worksheets(“シート名”).Move After:=Workbooks(“コピー先のブック名”).Worksheets（”指定シート名”)

上記は別のブックへの移動ですが

・Workbooks(“コピー先のブック名”)を外せば同じブック内での移動。
・Worksheets（番号)で指定番号へ移動

など、これまで学んで来た作業が移動で応用できます。

■シートを削除する

最後にシートを削除する方法について説明します。
これまで「Copy」や「Add」、「Move」などを使用してきましたが
削除には「Delete」を使用します。

プログラムはこのようになります。

Worksheets(“シート名”).Delete

では下記の「あいうえお」を削除してみましょう。

プログラムは下記の通りです。

Sub シートの削除()

Worksheets(“あいうえお”).Delete

End Sub

実行すると…

「あいうえお」のシートが削除できました。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Sheets.Add メソッド (Excel) | Microsoft Learn

Worksheet.Name プロパティ (Excel) | Microsoft Learn

Worksheet.Copy メソッド (Excel) | Microsoft Learn

Worksheet.Delete メソッド (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
これでシート操作はマスターできたと思います。

シートの操作ができればVBAでできることの幅が広がるので

ぜひ今回の記事を参考にしてみてください。

次回のはVBAで合計を求める方法についてまとめています。記事はこちらから☟

【マクロVBA知識 18】合計・総和をSUM・SUMIF・SUMIFSで求める ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

【VBA知識 12】別のシートをアクティブ・選択する方法について ► 独学エクセル塾 (dokugakuexcel.com)

今回はブック操作の中でもブックを開く・ブックの作成・

ブックの名前の変更・ブックを閉じる操作について、ご紹介します。

ブックをアクティブにする操作に加え、今回の記事を身につけると

ブック関係の操作は網羅できるようになります。

ぜひ参考にしてみてください。

それでは見ていきましょう。

■ブックを開く

・ファイル名を直接入力して開く

まず、ブックを開く操作について説明します。

ブックを開く際には下記のようなプログラムになります

Workbooks.Open “ブックのフルパス”

フルパスの表示方法についてはファイルのプロパティからも拾えるのですが
クイックアクセスツールバーに追加しておくと、とても便利です

クイックアクセスツールバーの追加については
「ファイル」→「オプション」→「クイックアクセスツールバー」を選択し
コマンドの選択を「リボンにないコマンド」にします。
そこに「ドキュメントの場所」があるので選択して「追加」をして「OK」で追加されます。

ちなみに見本ブックというものを作成しました。
そちらはCドライブに直接保存したのですがこのようになります。

クイックアクセスツールバーにドキュメントの場所が表示されていますね。
ちなみに見本ブックは「C:\見本ブック.xlsm」のようになっています。

ではこちらをVBAを使用して開いてみましょう。

プログラムがこのようになります。

Sub ブックを開く()

Workbooks.Open “C:\見本ブック.xlsm“

End Sub

こちらで見本ブックを開いてくれます。

・変数のブック名を開く

今度はブック名を変数に格納してある状態でブックを開いてみましょう。
プログラムはこのようになります。

Sub 変数のブックを開く()

Dim Bookname As String

Bookname = “C:\見本ブック.xlsm”

Workbooks.Open Bookname

End Sub

これにより変数名のブックを開くことができます。
ファイル1、ファイル2とファイル名の番号が変わって、各ファイルに書き込むときには変数を使用したほうが楽ですね。

■ブックの作成を行う

今度はブックの作成についてです。
こちらはデータの集計結果を別ファイルに作成し、出力するときなどに使えそうですね。

プログラムはこのようになります。

Workbooks.Add

これだけです。
一応作成したプログラムを載せておきます。

Sub 新しいブックを作成する()

Workbooks.Add

End Sub

実行すると新しいブックの「Book1」が作成されました。

■ブックに名前を付ける

先ほどばブックを作成しましたが
今度はブックに名前を付けてみましょう。

プログラムはこのようになります。

ActiveWorkbook.SaveAs Filename:=”パス+ファイル名+.xlsx“

パスとファイル名は保存したい場所・ファイル名を入力してください。

ちなみに対象は「ActiveWorkbook」にしていますが、変数でも構いません
見本プログラムを下記にのせておきます。

Sub ブックに名前を付けて保存()

Dim Bookname As Workbook

Set Bookname = ActiveWorkbook

Bookname.SaveAs Filename:=”パス+ファイル名+.xlsx“

End Sub

xlsmで保存の際のエラーの対応や「txt（テキスト)」「csv」ファイルで保存する際の

記事については下記でまとめてますので是非参考にしてみてください。

【マクロVBAエラー対応】「.xlsm」の拡張子でブックの名前を付けて保存ができない対応方法 ► 独学エクセル塾 (dokugakuexcel.com)

■フォルダに入っているブックを別フォルダに移動させる

では次にエクセルのファイルを
現在入っているフォルダから別のフォルダに移動させましょう。

こちらは移動ととらえるより、先ほど名前を付けたように
パスを書き換えるという方がイメージが付きやすいかもしれません

見本で「C:\見本フォルダ①」のフォルダに「1Book.xlsx」というファイルを作ってみました

こちらを見本フォルダ②に入れてみましょう。
ちなみに見本フォルダ②は現在何も入っていません。

プログラムは下記の通りです。

Name “変更前のパス+ファイル名” As “変更前のパス+ファイル名”

では当てはめていきましょう
“変更前のパス+ファイル名”は「C:\見本フォルダ①\1Book.xlsx」になります。
“変更後のパス+ファイル名”は「C:\見本フォルダ②\1Book.xlsx」になります。
合わせると…

Sub ファイルの位置の変更()

Name “C:\見本フォルダ①\1Book.xlsx” As “C:\見本フォルダ②\1Book.xlsx”

End Sub

このようになります。
では実行してみましょう。

見本フォルダ①の方は…

空になりました。
見本フォルダ②を見てみると…

ファイルが移動したことがわかりますね。
ちなみにブックの移動は通常の動作と同様に指定ファイルは閉じた状態でないと異常が表示されます。

■ブックを保存する

ではブックの保存について見ていきましょう。
保存のプログラムはこのようになります。

Workbooks(“ファイル名“).Save

ここではパスなど入れずにファイル名のみ入れてください。
「Book.xlsx」というファイルがあったとするとプログラムはこのようになります。

Sub ブックの保存()

Workbooks(“Book.xlsx“).Save

End Sub

変数を用いた場合はこちら…

Sub ブックの保存()

Dim Bookname As Workbook

Set Bookname = ActiveWorkbook

Bookname.Save

End Sub

■ブックを閉じる

最後のブック操作はブックを閉じるについてです。
ブックを閉じるプログラムはこのようになります。

Workbooks(“ファイル名“).Close

ここでも保存と同様にパスなど入れずにファイル名のみ入れてください。
「Book.xlsx」というファイルがあったとするとプログラムはこのようになります。

Sub ファイルを閉じる()

Workbooks(“Book.xlsx“).Close

End Sub

ちなみに変数を使用したブックを閉じる際は
変数.closeのみで構いません。
見本のプログラムも載せておきます。

Sub ファイルを閉じる()

Dim Bookname As Workbook

Set Bookname = ActiveWorkbook

Bookname.Close

End Sub

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Workbooks.Open メソッド (Excel) | Microsoft Learn

Workbooks.Add メソッド (Excel) | Microsoft Learn

Workbook.SaveAs メソッド (Excel) | Microsoft Learn

Workbook.Save メソッド (Excel) | Microsoft Learn

Workbook.Close メソッド (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
これでブック操作はマスターできたと思います。

未処理ファイルを開いて処理して処理済みフォルダに格納…
のようなプログラムも組めますね。

ぜひ参考にしてみてください。

次回はシートの操作についてまとめています。記事はこちらから☟

【マクロVBA知識 17】シートを作成・名前を付ける・ブック内/外へコピー・移動・削除する。 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。