Giúp mình tìm dữ liệu trong sau khi đã merge cell với. (1 người xem)

  • Thread starter Thread starter anh3ren
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

anh3ren

Thành viên chính thức
Tham gia
19/4/12
Bài viết
55
Được thích
0
Các bạn oi, các bạn làm ơn giúp mình tìm dữ liệu đã Merge cell với với. Mình không biêt có công thức nào không nữa.

Xem file đính kèm dùm mình nha. Cảm ơn các bác nhiều
 

File đính kèm

Tạm thời bạn xài macro sau, Sẽ thử sức với hàm tự tạo giúp bạn

PHP:
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

Hàm tự tạo đây, mại zô!
PHP:
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

Cách Xài: Tại [C17] 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!
 
Lần chỉnh sửa cuối:
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!

Mình không áp dụng được cái này. CT ở trên thì mình làm được. tks bạn nha.
 
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.
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"
----------
B11=def, trùng với B8 và B9. Công thức của ndu...hoangminhtien "hì hì..."
-----------------
 

File đính kèm

Lần chỉnh sửa cuối:
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"
----------
B11=def, trùng với B8 và B9. Công thức của ndu...hoangminhtien "hì hì..."
-----------------
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ế đâu
 

Bài viết mới nhất

Back
Top Bottom