Option Explicit
Sub gpeFindMergeCells()
Dim Rng As Range, sRng As Range, Cls As Range
Dim Rw As Long, Jj As Long
Set Rng = Range("B2:B15"): Rw = Rng.Rows.Count
For Each Cls In Range([A17], [A17].End(xlDown))
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
If sRng.Offset(, -1).Value = "" Then
For Jj = 1 To Rw
If sRng.Offset(-Jj, -1).Value <> "" Then
Cls.Offset(, 1).Value = sRng.Offset(-Jj, -1).Value
Exit For
End If
Next Jj
Else
Cls.Offset(, 1).Value = sRng.Offset(, -1).Value
End If
End If
Next Cls
End Sub
Option Explicit
Function FindIsMergeCells(Rng As Range, Tim As Range)
Dim jJ As Long, Rw As Long, sRng As Range, Cls As Range
Rw = Rng.Rows.Count
Set sRng = Rng.Find(Tim.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
If sRng.Offset(, -1).Value <> "" Then
FindIsMergeCells = sRng.Offset(, -1).Value
Else
For jJ = 1 To Rw
If sRng.Offset(-jJ, -1).Value <> "" Then
FindIsMergeCells = sRng.Offset(-jJ, -1).Value
Exit Function
End If
Next jJ
End If
End If
End Function
=OFFSET($A$2,MATCH(9.99999999999999E+307,OFFSET($A$3,,,MATCH(A17,$B$3:$B$12,0),1)),0)
Cách Xài: Tại [C17 đã viết:ta nhập cú fáp =FindIsMergeCells(B$2:B$12,A17)
Nhưng cần nói với bạn 1 điều rằng, mình không mấy ưa thấy các ô trộn này lắm!
Tại B17 bạn nhập công thức
Hoặc là vầy:Tại B17 bạn nhập công thức
=LOOKUP(10^15,OFFSET($A$3,,,MATCH(A17,$B$3:$B$12,0)))
Hoặc là vầy:
PHP:=LOOKUP(10^15,OFFSET($A$3,,,MATCH(A17,$B$3:$B$12,0)))
Nếu B3:B12 hoàn toàn giống A17:A26 thì xem công thức trong File, nếu 2 vùng này không giống nhau thì "thua"Sao mình làm không được vậy bạn. tại ô B17 mình nhập nhưng nó không ra. bạn có thể làm trong File gửi lại cho mình không.
Tôi có thấy vụ này và lúc đầu cũng nghĩ công thức hoangminhtien là sai... nhưng sau suy nghĩ lại tôi cho rằng dữ liệu trên chỉ là giả lập, thực chất chắc không phải như thế đâuNếu B3:B12 hoàn toàn giống A17:A26 thì xem công thức trong File, nếu 2 vùng này không giống nhau thì "thua"
----------
B11=def, trùng với B8 và B9. Công thức của ndu... và hoangminhtien "hì hì..."
-----------------