Sub WorkSheet関数() Dim rangeD As Range Dim N As Single Dim Cod As Integer Dim i2 As Integer Dim i As Integer Range("H3:J12").ClearContents Range("A3").ClearContents Cod = 0 i2 = 8 For i = 4 To 10 If Range("D" & i) = Cod Then GoTo Jump Cod = Range("D" & i) Range("A3").Value = Cod Set rangeD = Worksheets("Sheet1").Range("A2:A3") N = WorksheetFunction.DSum(Range("B3:G10"), "金額", rangeD) Cells(3, i2).Value = Cod Cells(i, i2).Value = N i2 = i2 + 1 Jump: Next Set rangeD = Nothing End Sub --------------------------------------------------------------------- Sub セルに関数記入() Range("B14").Value = "=DSUM(B3:G10,G3,A2:A3)" Range("B15").Value = "=IF(B14>0,B14,"""")" End Sub