|
- Sub test()
- Dim i, k, m, n, ave, max, min, rng As Range, arr, st
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- With Worksheets("Sheet1")
- st = Array("A", "B", "F", "G", "H")
- For Each rng In Selection
- If m = 0 Then m = rng.Row
- n = rng.Row
- If max = 0 Then max = .Range("C" & rng.Row).Value
- If max < .Range("C" & rng.Row).Value Then max = .Range("C" & rng.Row).Value
-
- If min = 0 Then min = .Range("C" & rng.Row).Value
- If min > .Range("C" & rng.Row).Value Then min = .Range("C" & rng.Row).Value
- Next
- For i = 0 To 4
- .Range(st(i) & m & ":" & st(i) & n).UnMerge
- .Range(st(i) & m & ":" & st(i) & n).Merge
- Next
- k = (n + 1 - m) / 3
- For i = 0 To k - 1
- ave = ave + .Range("D" & m + i * k).Value * .Range("E" & m + i * k).Value
- Next
- .Range("F" & m) = ave / 8
- .Range("G" & m) = max
- .Range("H" & m) = min
- End With
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|