GBKEE

¦^´_ 1# boyao
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Macro1()
   
3.     Dim Rng(1 To 2) As Range
   
4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
   
5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
   
6.     Rng(2).Columns(1) = Application.Average(Rng(1))
   
7.     Rng(2).Columns(2) = Application.Max(Rng(1))
   
8.     Rng(2).Columns(3) = Application.Min(Rng(1))
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# boyao
¸Õ¥X¨Óªºµ²ªG·|­pºâ©Ò¦³¸ê®Æªº ³Ì¤j.³Ì¤p.¥­§¡ »Ý­n¦A§ï­þÃ䪺°Ñ¼Æ?
    »â®©¤£¥X»¡ªk²[¸q,½Ð¦A»¡©ú¤@¤U

GBKEE

¦^´_ 6# boyao
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng(1 To 2) As Range, i As Integer
   
4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
   
5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
   
6.     For i = 1 To Rng(2).Rows.Count    '.Count : Rng(2).RowsªºÁ`¼Æ
   
7.          'Rows ª«¥ó: ½d³òªº¦C
   
8.          'Columns ª«¥ó: ½d³òªºÄæ
   
9.          ' Rng(1).Rows(i)ªº²Äi¦C
   
10.          ' Rng(2).Rows(i)ªº²Äi¦C
    
11.         Rng(2).Rows(i).Cells(1) = Application.Average(Rng(1).Rows(i))
    
12.         Rng(2).Rows(i).Cells(2) = Application.Max(Rng(1).Rows(i))
    
13.         Rng(2).Rows(i).Cells(3) = Application.Min(Rng(1).Rows(i))
    
14.     Next
    
15. End Sub

½Æ»s¥N½X