Tính max min,average... trong một vùng chọn với các ô có cùng điều kiện. (1 người xem)

[Anchoisotontien]

Chào mọi người. MÌnh có 1 bài toán như thế này.
1.Cho 1 cột, bôi vàng các giá trị nếu ô trước trừ ô sau=0.5 (OK)
2.Cắt bớt các ô màu vàng xuống còn 30 ô tính từ ô cuối cùng (OK)
3.Tính max min, average của các ô màu vàng đó.

Đây la công thức của mình cho Yêu cầu 3(2 yêu cầu trên OK rồi)

Sub Danh_Dau_gia_tri()

Dim j As String
Dim myRange As Range

Set myRange = Selection


For i = 1 To myRange.Cells.Rows.Count

If myRange.Cells(i, 1).Interior.Color = RGB(255, 255, 0) Then


Exit For

End If

Next i

myRange.Cells(myRange.Cells.Rows.Count + 8, 1).FormulaR1C1 = "=MAX(myRange.Cells(i, 1), myRange.Cells(myRange.Cells.Rows.Count, 1)))"

End Sub

Không hiểu sao cái ô bôi đậm cứ bão lỗi.
Đây là tính theo trường hợp các ô vàng liên tiếp nhau cho đến cuối, còn nếu ô vàng không liên tiếp thì làm thế nào mọi người nhỉ??
Mình là người mới và cũng học không bài bản chỉ vừa mò vừa viết thôi,mong mọi người thông cảm

P/S: Thêm 1 câu hỏi nữa. Giả sử ta có địa chỉ :myRange.Cells(i, 1).Address có dạng $x$y: Bây giờ mình muốn chuyể x(B,C,D...) về A thì làm thế nào nhỉ???