ソース範囲に基づいてピボットテーブルを自動的に作成するサブを作成しました。ソースデータの範囲が狭い場合、コードは正常に機能します。ただし、より大きなデータ(110'000行)で実行すると、実行時エラー13(タイプの不一致)が発生します。
なぜそうなるのかわかりません。別の範囲でまったく同じコードを実行できますが、すべてうまくいきますか?
なぜこれが起こるのか誰かが提案を持っていますか?
Set rDataRange = wsData.Range("A1").CurrentRegion
' Create the cache
Set PTCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=rDataRange)