Excel VBA ピボットテーブルにおいて、行数の増減がある為、 最終行を取得した
VBAコードを書きたいのですが、トライしましたがうまくいきません
、どこをどのように直せばよいものなのか教えてください。
Sub PivotTable()
Dim DataS As Worksheet 'データシート
Dim PivotS As Worksheet 'ピボットテーブルを作成するシート
Dim PCache As PivotCache 'ピボットキャッシュ用変数
Set DataS = ThisWorkbook.Worksheets("マッチングデーター")
'『データ』シートからピボットキャッシュを作成
Set PCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=DataS.Range("M1:N19"))
'『ピボットテーブル』シートを追加
Worksheets.Add
ActiveSheet.Name = "ピボットテーブル"
Set PivotS = ThisWorkbook.Worksheets("ピボットテーブル")
'『ピボットテーブル』シートにピボットテーブル作成
PCache.CreatePivotTable _
TableDestination:=PivotS.Range("A1"), _
TableName:="個数"
宜しくお願いします。
No.2
- 回答日時:
エラーメッセージを見るとM列にデータが無いか1つだけという事ですが、違いますか?
「データが無いまたは1つだけの時はピボットテーブルは不要です」という事だと思います。
No.1
- 回答日時:
「SourceData:=DataS.Range("M1:N19"))」を見る限りMまたはN列の行数が対象になると思います。
M・N列の行数が必ず同じならどちらの最終行を用いても良いと思いますが、実際はどうなのでしょうか?同じまたはM列の方が長いのならば「SourceData:=DataS.Range("M1:N" & Cells(Rows.Count, 13).End(xlUp).Row))」にされれば良いと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) VBA別シートの最終行の次行へ転記したい。 3 2022/06/01 17:54
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ピボットテーブルでの毎回可変するデータの最終行までの範囲を指定したいです。
PowerPoint(パワーポイント)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
【VBA】ピボットテーブルを既存のシートに作成したい
Excel(エクセル)
-
-
4
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
5
EXCEL2007 VBAでピボットのフィルタ指定
その他(プログラミング・Web制作)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
ピボットテーブル最終行から2行目に項目を入れて3行目から新しいピボットテーブルを貼り付けたい。
その他(Microsoft Office)
-
12
EXCEL 2010 VBAでピボットで複数のアイテムをセルでフィルタ指定
Visual Basic(VBA)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
15
Excel、VBAでピボットテーブル、pagefieldの絞込み
Excel(エクセル)
-
16
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
17
ピポットテーブルエラー解決方法
Excel(エクセル)
-
18
エクセルでエラーが出て困っています。
Excel(エクセル)
-
19
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
20
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
【条件付き書式】countifsで複...
-
エクセルのブック分割マクロを...
-
Excel複数シートにあるデータを...
-
Excel の複数シートの列幅を同...
-
VBAで繰り返しコピーしながら下...
-
エクセル マクロ 標準モジュー...
-
Excelに自動で行の増減をしたい...
-
エクセルで横並びの複数データ...
-
excel 複数のシートの同じ場所...
-
【VBA】複数のシートの指定した...
-
エクセルの列の限界は255列以上...
-
SUMPRODUCTにて別シートのデー...
-
Excelでの並べ替えを全シートま...
-
エクセルで、book全体の検索&...
-
VLOOKアップ関数の結果の...
-
エクセル複数シートのデータを...
-
ある数値に対して、値を返す数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
Excel複数シートにあるデータを...
-
エクセルの列の限界は255列以上...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
VLOOKアップ関数の結果の...
-
スプレッドシートでindexとIMPO...
-
Excel VBA ピボットテーブルに...
-
エクセルで横並びの複数データ...
-
Excelに自動で行の増減をしたい...
-
【VBA】ピボットテーブルを既存...
-
【VBA】複数のシートの指定した...
-
オートフィルタ使用時にCOUNTIF...
おすすめ情報
回答ありがとうございました。
M・N列の行数が必ず同じです。
SourceData:=DataS.Range("M1:N" & Cells(Rows.Count, 13).End(xlUp).Row))と
したのですが、添付画像のエラーとなってしまします。
すみませんが、ご教授願います。
宜しくお願い致します。
早々の対応ありがとうございます。
添付画像の通り、データーは入っているのですが、なぜエラーになるのかが分かりません。
ご教授願います
すみません。