『ピボットテーブル』（MARU）

 ピボットテーブルの結果は下記になります。

 調査日
　　　      (品番)　
 (データ)      A　　B    C    D    E　　　　　　
 調査数     
 OK数
 NG数
 項目1
 項目2
 項目3
 項目4
 項目5
 ・
 ・
 ・
↑項目は変化します

 Worksheets("カウント").Select
    dataclm = Worksheets("カウント").Range("B4").Value
    datarow = Sheets("カウント").Range("B1").Value   
 
 '項目取得：毎回項目数が変化します    
    Dim koumoku(300)
    For i = 18 To dataclm
        koumoku(i) = Worksheets("データベース").Cells(1, i).Value
    Next i
        
    Worksheets("ピボット").Select
    Worksheets("ピボット").Cells.Clear
 'データベースシートのデータをもとに、ピボットシートにピボットの結果を表示    
       ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "データベース!Data1").CreatePivotTable TableDestination:= _
        "[処理ファイル.xls]ピボット!R1C1", TableName:="YAMA"

    ActiveSheet.PivotTables("YAMA").AddFields RowFields:="データ", _
        ColumnFields:="品番", PageFields:="調査日"
    With Worksheets("ピボット").PivotTables("YAMA").PivotFields("調査数")
        .Orientation = xlDataField
        .Position = 1
        .Function = xlSum
        .Caption = " 調査数"
    End With

    With Worksheets("ピボット").PivotTables("YAMA").PivotFields("OK数")
        .Orientation = xlDataField
        .Position = 2
        .Function = xlSum
        .Caption = " OK数"
    End With
    With Worksheets("ピボット").PivotTables("YAMA").PivotFields("NG数")
        .Orientation = xlDataField
        .Position = 3
        .Function = xlSum
        .Caption = " NG数"
    End With
 '変化する項目は18列目から始まる    
    For i = 18 To dataclm

    With Worksheets("ピボット").PivotTables("YAMA").PivotFields(koumoku(i))
        .Orientation = xlDataField
        .Position = i - 14
        .Function = xlSum
        .Caption = " " & koumoku(i)　　　　　←ここでエラー
    End With
  
    Next i

 ●エラー内容
 実行時エラー1004
 指定したフィールド名は既に使用されています。
 とのエラーが表示されます。
 
 ご教授お願いします。　　　 
　　
----
 エラーの通りのデータに成っているのではないですか？
 実際の物に近いサンプルデータをのせてみられてはどうですか？

 (HANA)
----
 HANAさんありがとうございます。
 エラーがでない時もあるんです。もう少し調べてみます。
 どうしてもわからなければ、もう一度質問させていただきます。

 (MARU)