Ich habe einige Daten, die die Quelle für eine Pivot-Tabelle ist, die ich mit dem folgenden VBA-Skript erstellen.Erstellen Sie Pivot-Tabelle im selben Arbeitsblatt wie die Quelldaten (Excel VBA)
Der Code erstellt ein neues Blatt und generiert Pivot-Tabelle, aber ich möchte, dass die Pivot-Tabelle im selben Blatt vorhanden ist, in dem sich die Quelldaten befinden.
Es muss auch überprüft werden, wo vorhandene Daten sind und müssen eine leere Zelle auswählen.
Sub ApplyPivot()
ActiveWorkbook.Sheets("NOIDA").Select
Range("A1").Select
Set objTable = Sheet1.PivotTableWizard
Set objField = objTable.PivotFields("sector")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("number")
objField.Orientation = xlColumnField
Set objField = objTable.PivotFields("quantity")
objField.Orientation = xlDataField
objField.Function = xlCount
objField.NumberFormat = " ######"
End Sub
Ist dies Ihr gesamter Code? Der obige Code erstellt kein neues Blatt. Können Sie den vollständigen Code teilen? – Siva