帮帮看看我错在哪里？

dusttwo

目的是想在一个透视表中，把源数据区域第4个列变量到第47个列变量依次作为行标签，产生透视表（此过程中，列表签和计算方法不变）。
然后把透视结果，拷贝到另外一个sheet中，依次排列。
我是新手，目前只能想到用For next语句，根据记录宏的代码，做了调整写一些东西，但是一直执行不下去。因为这个统计结果老师要的比较着急，来不及慢慢研究了，真诚请教论坛上的前辈答疑解惑。
谢谢您的阅读。

代码如下：
Sub Macro5()
'
    Sheets("Sheet6").Select
    Row = 1
    I = 4
    For I = 4 To 47
      
        With ActiveSheet.PivotTables("数据透视表1").PivotField("I")
              .Orientation = xlRowField
              .Position = 1
        End With
              Range("A9:C12").Select
              Range("C12").Activate
              Selection.Copy
              Sheets("Sheet1").Select
              Range(Cells(Row, 1)).Select
              ActiveSheet.Paste
              Row = Row + 8
              Sheets("Sheet6").Select
              ActiveSheet.PivotTables("数据透视表1").PivotField.Orientation = xlHidden
      
      Next I
   
   
End Sub

谢谢你的回帖

dusttwo

没有回帖，自己早上又研究了下，发现原来有几个错误。

1. 没有定义变量属性
增加了
  Dim I As Integer
    Dim Row As Integer
2.PivotField("I")，这个PivotField名称打错了，少了一个s，另外括号里面不是字符串所以不用加引号

3. Range(Cells(Row, 1)).Select  这个Range完全是多余的。

把这三处修改以后，程序迅速执行了。这是我的第一个用于工作的VBA代码，写在这里鼓励自己。也给其他我一样的初学者，一些借鉴。

谢谢关注

修改后代码如下：



Sub Macro5()
'
    Sheets("Sheet6").Select
    Dim I As Integer
    Dim Row As Integer
        Row = 1
        I = 4
    For I = 4 To 47
        With ActiveSheet.PivotTables("数据透视表1").PivotFields(I)
              .Orientation = xlRowField
              .Position = 1
        End With
              Range("A9:C12").Select
              Selection.Copy
              Sheets("Sheet1").Select
              Cells(Row, 1).Select
              ActiveSheet.Paste
              Row = Row + 8
              Sheets("Sheet6").Select
              ActiveSheet.PivotTables("数据透视表1").PivotFields(I).Orientation = xlHidden
      
      Next I
   
   
End Sub