VBA
1 Dim p As Integer 2 Dim yearF As Integer 3p = 3 4 Worksheets("list").Select 5 For p = 3 To WorksheetFunction.CountA(Range(Range("f3"), Cells(Rows.Count, 6).End(xlUp))) + 2 6 yearF = Range("f" & p).Value 7 Debug.Print "F:" & p & " , " & yearF 8 If WorksheetFunction.CountIf(Worksheets("年間集計").Range("7:7"), yearF) = 0 Then 9 With Worksheets("年間集計").Range("e7:e" & Cells(Rows.Count, 5).End(xlUp).Row) 10 .Copy 11 .Insert xlShiftToRight, copyorigin:=xlFormatFromRightOrBelow 12 .PasteSpecial Paste:=xlPasteColumnWidths 13 .PasteSpecial Paste:=xlPasteFormats 14 End With 15 Worksheets("年間集計").Range("e7").Value = yearF '?1つだけ空になる■ 16 End If 17 Next p
「list」シートからyearFを上から繰返し読込しています。
最後F5の際、p=5になっているのになぜかyearF=0となり、結果西暦年が0の列ができてしまします。
デバッグでF8ステップ実行しても結果は変わりません。
お知恵を拝借できますと幸いです。
回答4件
あなたの回答
tips
プレビュー