将透视表中的“区”字段，写入一个新的sheet中，并导出为同一个excel文件

假设透视表所在的sheet名为“透视表”，新建的sheet名为“区域”，以下是实现代码：

import pandas as pd

# 读取原始数据
data = pd.read_excel("data.xlsx")

# 创建透视表
pivot_table = pd.pivot_table(data, values='销售额', index='年份', columns='月份', aggfunc='sum')

# 将“区”字段写入新的sheet
area = pd.DataFrame(data['区'].unique(), columns=['区'])
writer = pd.ExcelWriter('data.xlsx', engine='openpyxl')
writer.book = pd.load_workbook('data.xlsx')
area.to_excel(writer, sheet_name='区域', index=False)

# 导出透视表和新的sheet到同一个excel文件
pivot_table.to_excel(writer, sheet_name='透视表')
writer.save()

相关问题

用vba对excel中多个sheet分别生成数据透视表，并放在同一个表下

可以使用以下VBA代码来对Excel中多个工作表分别生成数据透视表，并将它们放在同一个工作表下：

Sub CreatePivotTables()

    Dim ws As Worksheet, wsMaster As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache
    Dim lastRow As Long, lastCol As Long
    Dim pivotTopLeft As Range
    
    '创建主工作表
    Set wsMaster = ThisWorkbook.Sheets.Add
    wsMaster.Name = "Master"
    Set pivotTopLeft = wsMaster.Cells(1, 1)
    
    For Each ws In ThisWorkbook.Worksheets
        '跳过主工作表和空工作表
        If ws.Name <> wsMaster.Name And Application.WorksheetFunction.CountA(ws.Cells) <> 0 Then
            '创建数据透视表
            lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
            lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
            Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)))
            Set pt = pc.CreatePivotTable(pivotTopLeft, ws.Name & " Pivot")
            
            '添加行字段
            With pt.PivotFields("行字段1")
                .Orientation = xlRowField
                .Position = 1
            End With
            
            '添加列字段
            With pt.PivotFields("列字段1")
                .Orientation = xlColumnField
                .Position = 1
            End With
            
            '添加数据字段
            With pt.PivotFields("数据字段1")
                .Orientation = xlDataField
                .Position = 1
                .Function = xlSum
                .NumberFormat = "#,##0.00"
            End With
            
            '将数据透视表复制到主工作表
            lastRow = wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
            Set pivotTopLeft = wsMaster.Cells(lastRow + 2, 1)
            pt.TableRange2.Copy wsMaster.Cells(lastRow + 2, 1)
        End If
    Next ws
    
End Sub

在这个代码中，我们遍历了Excel文件中的每个工作表，创建了一个数据透视表，并将其放在名为“Master”的主工作表下。

需要注意的是，我们使用了一个名为“行字段1”、“列字段1”和“数据字段1”的假字段名称。在实际使用中，需要将这些名称替换为实际的字段名称。

另外，我们还使用了一个名为“pivotTopLeft”的变量，该变量指示了下一个数据透视表的左上角单元格。在每个工作表的数据透视表创建完成后，我们将其复制到主工作表，并更新“pivotTopLeft”变量以指向下一个数据透视表的位置。

最后，需要注意的是，如果每个工作表中的数据透视表列数不同，则可能需要在主工作表中手动调整列宽以适应最宽的数据透视表。

用vba实现excel多个sheet分别生成数据透视表，并将数据透视表汇总到一个表中

可以通过以下步骤实现：

1. 在一个新的Sheet中创建汇总数据透视表，并设置好数据透视表的格式。
2. 编写一个VBA宏，遍历所有需要生成数据透视表的Sheet。
3. 在遍历过程中，对每个Sheet进行以下操作：
- 选中需要生成数据透视表的数据区域。
- 创建数据透视表，并设置好数据透视表的格式。
- 将数据透视表的数据复制到汇总数据透视表的下方。
4. 运行VBA宏，生成所有数据透视表，并将它们汇总到汇总数据透视表中。

以下是一个示例VBA宏：

Sub GeneratePivotTables()
    Dim summarySheet As Worksheet
    Dim dataSheet As Worksheet
    Dim lastRow As Long
    Dim pivotTable As PivotTable
    Dim pivotCache As PivotCache
    
    '获取汇总数据透视表所在Sheet
    Set summarySheet = ThisWorkbook.Sheets("Summary")
    
    '清空汇总数据透视表下方的所有数据
    summarySheet.Range("A2:Z1000").ClearContents
    
    '遍历所有需要生成数据透视表的Sheet
    For Each dataSheet In ThisWorkbook.Sheets
        If dataSheet.Name <> summarySheet.Name Then
            '选中需要生成数据透视表的数据区域
            lastRow = dataSheet.Cells(Rows.Count, 1).End(xlUp).Row
            dataSheet.Range("A1:B" & lastRow).Select
            
            '创建数据透视表
            Set pivotCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Selection)
            Set pivotTable = pivotCache.CreatePivotTable(TableDestination:=summarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1), TableName:="PivotTable" & dataSheet.Name)
            
            '设置数据透视表的格式
            With pivotTable
                .PivotFields("Column1").Orientation = xlRowField
                .PivotFields("Column2").Orientation = xlColumnField
                .AddDataField .PivotFields("Data"), "Sum of Data", xlSum
            End With
            
            '复制数据透视表的数据到汇总数据透视表下方
            pivotTable.TableRange2.Copy summarySheet.Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If
    Next
    
    '自动调整汇总数据透视表的列宽和行高
    summarySheet.Cells.EntireColumn.AutoFit
    summarySheet.Cells.EntireRow.AutoFit
End Sub

注意：在运行该宏前，需要先在工作簿中创建一个名为"Summary"的Sheet，并在该Sheet中创建好汇总数据透视表的格式。同时，该示例宏假设每个需要生成数据透视表的Sheet中的数据区域为A1:Bn，其中第一列为"Column1"，第二列为"Column2"，第三列为"Data"。你需要根据你的实际情况进行修改。