ランタイムエラー13：タイプの不一致

Question

データを使用してピボットテーブルを作成する簡単なコードを実行しようとしています。

Sub PTable() 
Dim PT As PivotTable 
Dim PTCache As PivotCache 
Dim rng As Range 
Set rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)) 
rng.Select 

Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, rng) 
Sheets("New").Activate 
Set PT = ActiveSheet.PivotTables.Add(PTCache, Range("A1"), "My_PT") 
End Sub 

ランタイムエラー13、タイプミスマッチがPTCacheの設定中にスローされます。これは、私がVBAを使用してExcelでPivot Tablesを使用しているときはいつも非常に頻繁に起こっています。

Answer 1

この文字列Set rng = Range("A1", Range("A1").End(xlToRight).End(xlDown))は非常に巨大な範囲"$1:$1048576"に設定されています。 あなたは、デバッガでそれを見ることができます：

Range("A1", Range("A1").End(xlToRight).End(xlDown)).Address 
=> "$1:$1048576" 

たぶん範囲と間違って何か、あなたはActiveWorkbook.PivotCaches.Createで使用したいということ？範囲として渡すとき

、それは、ブック、ワークシート、およびセル範囲を指定 に文字列を使用するか、または設定のいずれかにお勧めします。

はPivotCache.Create第二引数についてこのMicrosoft's adviceを使用しても試してみてください という名前の名前を文字列として渡します。 の範囲オブジェクトを渡す可能性があります 予期せず "型の不一致"エラーが発生します。

Answer 2

また、あなたははCtrl + Shift + *代わりに、単一のメソッドを実行

Set rng = Range("A1", Range("A1").End(xlToRight).End(xlDown)) 

（すなわち、.CurrentRegion）の代わりに、すなわち二つの方法（の

のようである

Set rng = Range("A1").CurrentRegion 

を試してみてください、 xlToRightに続いてxlDown）は、メモリーの消費が少なく、タイプの不一致グリッチを解決する可能性があります。