Lỡ leo lưng ... rồi.
Bạn có khẳng định kết quả của bạn là chính xác theo thứ tự quy định của bạn không?
Kết quả của tôi có khác với bạn đấy, dò muốn đui con mắt luôn.
Có lẽ đến đây là "hết thuốc" rồi đó. (Mỗi nhóm không đúng 9 dòng là "tèo" luôn)
Híc!
Kết quả của anh giống như kết quả của e chỉ qua là đảo vị trí của nó thôi!! e rất cảm ơn sư nhiệt tình của anh,..trong quá trình học hỏi có gì sai mong anh bỏ qua dùm em....
Như vậy chỉ có thể là "9 dòng" mới lọc đc hả anh....nếu em pass dữ liệu khác vào thì sẽ ko lọc đc rồi...
anh BA TE, em tìm trên diễn đàn thấy code này, em tích vào bài #11:
Sub loc1()
Dim Tmparr, item, Arr(1 To 5), Ir()
Dim n As Long, i As Long, j As Long, k As Long
Dim rng As Range
Application.ScreenUpdating = False
With ActiveSheet
.AutoFilterMode = 0
Tmparr = .Range(.[B15], .[B65536].End(3))
ReDim Ir(1 To UBound(Tmparr, 1))
End With
For i = 1 To UBound(Tmparr, 1) - 1
For j = i + 1 To UBound(Tmparr, 1)
If Not Tmparr(j, 1) Like Tmparr(i, 1) Then Exit For
Next
Set rng = Range("E" & i + 14 & "", "E" & j + 13 & "")
With WorksheetFunction
Arr(1) = IIf(.Max(rng) < Abs(.Min(rng)), .Min(rng), .Max(rng))
Set rng = Range("H" & i + 14 & "", "H" & j + 13 & ""): Arr(2) = .Max(rng): Arr(3) = .Min(rng)
Set rng = Range("I" & i + 14 & "", "I" & j + 13 & ""): Arr(4) = .Max(rng): Arr(5) = .Min(rng)
n = n + 5
Ir(n - 4) = .Match(Arr(1), [E15:E65000], 0): Range("b:b").Cells(Ir(n - 4) + 14).Font.Bold = 65535
Ir(n - 3) = .Match(Arr(2), [H15:H65000], 0): Range("b:b").Cells(Ir(n - 3) + 14).Font.Bold = 65535
Ir(n - 2) = .Match(Arr(3), [H15:H65000], 0): Range("b:b").Cells(Ir(n - 2) + 14).Font.Bold = 65535
Ir(n - 1) = .Match(Arr(4), [I15:I65000], 0): Range("b:b").Cells(Ir(n - 1) + 14).Font.Bold = 65535
Ir(n - 0) = .Match(Arr(5), [I15:I65000], 0): Range("b:b").Cells(Ir(n - 0) + 14).Font.Bold = 65535
End With
i = j - 1
Next
Application.ScreenUpdating = True
End Sub
Sub loc2()
Dim n As Integer
n = 15
Cells(n, "B").Select
Do Until Selection.Value = ""
If Selection.Font.Bold Then
n = n + 1
Cells(n, "B").Select
Else
Rows(n).Delete 'Kiem tra lai, tai sao delete nay lai giu dc format cua cell, con entridelete bi xoa?
End If
Loop
Range("A15").Select
End Sub
......................................................................................
nhưng kết quả của nó là:
MAX: giá trị lớn nhất "M3" của ký hiệu C1
MAX: giá trị lớn nhất "M2" của ký hiệu C1
MIN: giá trị nhỏ nhất "M3" của ký hiệu C1
MIN: giá trị nhỏ nhất "M2" của ký hiệu C1
MIN: giá trị nhỏ nhất "N" của ký hiệu C1
mà không phụ thuộc vào cột vị trí, vậy anh có thể dựa vào code đó, lọc ở 2 vị trí đầu "0,0" ; vị trí cuối "4,4"..mà kết quả cần là:
MAX: giá trị lớn nhất "M3" ứng với vị trí đầu tiên "0,00" của ký hiệu C1
MAX: giá trị lớn nhất "M2" ứng với vị trí đầu tiên "0,00" của ký hiệu C1
MIN: giá trị nhỏ nhất "M3" ứng với vị trí đầu tiên "0,00" của ký hiệu C1
MIN: giá trị nhỏ nhất "M2" ứng với vị trí đầu tiên "0,00" của ký hiệu C1
MIN: giá trị nhỏ nhất "N" ứng với vị trí đầu tiên "0,00" của ký hiệu C1
MAX: giá trị lớn nhất "M3" ứng với vị trí cuối cùng "4,40" của ký hiệu C1
MAX: giá trị lớn nhất "M2" ứng với vị trí cuối cùng "4,40" của ký hiệu C1
MIN: giá trị nhỏ nhất "M3" ứng với vị trí cuối cùng "4,40" của ký hiệu C1
MIN: giá trị nhỏ nhất "M2" ứng với vị trí cuối cùng "4,40" của ký hiệu C1
MIN: giá trị nhỏ nhất "N" ứng với vị trí cuối cùng "4,40" của ký hiệu C1
giúp em được không..em xin cảm ơn nhiều...
gửi anh file đính kèm, anh xem rồi sửa dùm em......
)
