透视表中怎样进行行列快速互换？

anthonii

朋友们，请教一下，透视表中有一个棘手的问题，有时候需要行列互换，但是使用的筛选比较多，比如我的行放了4级标签，列有1个字段，现在需要行列互换，我只能把行标签里的4个字段逐一拖动到列标签，再把原来列标签里的那个字段拖动到行标签，感觉很不方便，有没有一种办法可以点击一个键就实现这样的操作呢？逐一拖动没有意义，而且容易误操作，我原来使用拖动，现在就点那个小箭头，选择移动到行标签，这样也挺慢的

之所以先把4个字段先放在行标签里，再进行行列转换，是因为列标签里的字段的分类汇总只能显示在字段值组的后面，很乱，所以我先放在行标签里，使用压缩形式或大纲形式的报表布局，在组的顶部显示分类汇总，这样的逻辑更加清晰，更容易看清楚

五大金刚

有意思，蹲个

Excel_muke

VBA实现的，看看能不能符合你的需求：

1. Sub SwapAllRowColumnFields()
   
2.     Dim ws As Worksheet
   
3.     Dim pt As PivotTable
   
4.     Dim pf As PivotField
   
5.     Dim rowFieldsList As New Collection
   
6.     Dim colFieldsList As New Collection
   
7.     Dim pivotName As String
   
8.     Dim i As Integer
   
9.    
   
10.     ' 指定要操作的透视表名称
    
11.     pivotName = "数据透视表1"
    
12.    
    
13.     ' 设置工作表和透视表
    
14.     On Error Resume Next
    
15.     Set ws = ActiveWorkbook.Worksheets("Sheet1") ' 修改为包含透视表的工作表名称
    
16.     Set pt = ws.PivotTables(pivotName)
    
17.     On Error GoTo 0
    
18.    
    
19.     If Not pt Is Nothing Then
    
20.         ' 收集所有的行字段和列字段
    
21.         For Each pf In pt.RowFields
    
22.             rowFieldsList.Add pf.Name
    
23.         Next pf
    
24.         
    
25.         For Each pf In pt.ColumnFields
    
26.             colFieldsList.Add pf.Name
    
27.         Next pf
    
28.         
    
29.         ' 移除所有行字段和列字段
    
30.         For Each pf In pt.RowFields
    
31.             pf.Orientation = xlHidden
    
32.         Next pf
    
33.         
    
34.         For Each pf In pt.ColumnFields
    
35.             pf.Orientation = xlHidden
    
36.         Next pf
    
37.         
    
38.         ' 将原来的行字段添加到列字段，原来的列字段添加到行字段
    
39.         For i = 1 To rowFieldsList.Count
    
40.             pt.PivotFields(rowFieldsList(i)).Orientation = xlColumnField
    
41.         Next i
    
42.         
    
43.         For i = 1 To colFieldsList.Count
    
44.             pt.PivotFields(colFieldsList(i)).Orientation = xlRowField
    
45.         Next i
    
46.         
    
47.         ' 提示用户完成操作
    
48.         MsgBox "透视表 '" & pt.Name & "' 的所有行列字段已成功互换。", vbInformation
    
49.     Else
    
50.         MsgBox "未找到名称为 '" & pivotName & "' 的透视表。", vbCritical
    
51.     End If
    
52. End Sub
    

复制代码

pxy0409

做两个透视表,两种布局

mavin

4楼说的对！