1

コンボボックスを備えたExcelのユーザーフォームがあり、コンボボックスで何かを選択すると、特定のシートのピボットテーブルが自動的に更新されます。ここで、ピボットテーブルにあるすべてのフィールドを取得し、それらを別の列にコピーします。私はそれをvbで書く必要がありますが、何らかの理由でセルをコピーしません。それが私のコードです：

Set x = ActiveSheet.PivotTables("PivotTable4.1").DataBodyRange.Cells
x.Copy
Application.Goto Reference:="pivot_paste"
x.Paste

何らかの理由で最後の行を除いてすべてが正常に動作します助けてください

4

1 に答える 1

3

x.Pasteそれを範囲xにコピーすることを意味しますが、これは明らかにあなたが望むものではありません。このようなものが機能するはずです：

Set x = ActiveSheet.PivotTables("PivotTable4.1").DataBodyRange.Cells
x.Copy Destination:=ActiveSheet.Range("pivot_paste")
于 2012-12-29T19:34:07.077 に答える