Tìm giá trị tối đa cho mỗi cột trong phạm vi
Hàm sau sẽ trả về Giá trị Tối đa trong mỗi Cột trong một Phạm vi:
Hàm Max_Each_Column (Data_Range As Range) As Variant Dim TempArray () As Double, i As Long If Data_Range Is Nothing then Exit Function With Data_Range ReDim TempArray (1 To .Columns.Count) For i = 1 To .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Tiếp theo Kết thúc Với Max_Each_Column = Hàm Kết thúc TempArray
Chúng ta có thể sử dụng một chương trình con như sau để hiển thị kết quả:
Private Sub CommandButton1_Click () Dim Answer As Variant Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range ("B5: G27"). Columns.Count ReDim Answer (No_of_Cols) Answer = Max_Each_Column (Sheets ("Sheet1"). Range (" B5: g27 ")) Cho i = 1 To No_of_Cols Câu trả lời MsgBox (i) Tiếp theo Tôi Kết thúc Sub
Vì thế:
Sẽ trả về 990,907, 992, 976, 988 và 873 cho mỗi cột ở trên.
[ĐẶC BIỆT XIN CHÂN THÀNH CẢM ƠN MIKE RICKSON VÌ ĐÃ GIẢI QUYẾT CUỐI CÙNG CỦA CÁC ĐẾN CUỐI CÙNG TRONG VÒNG UDF]
