|
For i = 6 To 16
Cells(i, 2).Value = Application.WorksheetFunction.Sum(Sheets(i - 5).Range("F:F")) / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("F:F"), "<>") - 1)
Cells(i, 3).Value = Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("F:F"), ">=81") / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("F:F"), "<>") - 1)
Cells(i, 4).Value = Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("F:F"), ">=78") / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("F:F"), "<>") - 1)
Cells(i, 5) = Application.WorksheetFunction.Sum(Sheets(i - 5).Range("I:I")) / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("I:I"), "<>") - 1)
Cells(i, 6).Value = Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("I:I"), ">=82") / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("I:I"), "<>") - 1)
Cells(i, 7).Value = Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("I:I"), ">=71") / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("I:I"), "<>") - 1)
Cells(i, 8) = Application.WorksheetFunction.Sum(Sheets(i - 5).Range("L:L")) / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("L:L"), "<>") - 1)
Cells(i, 9).Value = Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("L:L"), ">=68") / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("L:L"), "<>") - 1)
Cells(i, 10).Value = Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("L:L"), ">=61") / (Application.WorksheetFunction.CountIf(Sheets(i - 5).Range("L:L"), "<>") - 1)
Next
End Sub怎么把红色的数字改成某个单元格的值,比如cells(4,3).value,为什么数据出来是错的呢。。什么原因··help
|
|