Hỏi hàm tự nhóm đối với những chuỗi giống nhau. (1 người xem)

[TrieuPhamPIL]

Dear Các Anh Chị,
Vui lòng giúp mình về hàm tự nhóm đối với những chuỗi giống nhau trong excel 2007, như module merge vậy. nhưng vì bản tính của mình thường nhiều giá trị nên Merge thường rất tốn thời gian và dễ sai sót. Mình có đính theo file ví dụ.
VD:
ABCD123456
ABCD123456
BCDE123456
CDEF123456
CDEF123456
CDEF123456

 

[phulien1902]

Dear Các Anh Chị,
Vui lòng giúp mình về hàm tự nhóm đối với những chuỗi giống nhau trong excel 2007, như module merge vậy. nhưng vì bản tính của mình thường nhiều giá trị nên Merge thường rất tốn thời gian và dễ sai sót. Mình có đính theo file ví dụ.
VD:
ABCD123456
ABCD123456
BCDE123456
CDEF123456
CDEF123456
CDEF123456

Bạn muốn nhanh phải dùng VBA, bạn tham khảo:

Sub abc()
    Dim i&, LR&
    LR = Cells(Rows.Count, "A").End(3).Row
    Application.DisplayAlerts = False
    On Error Resume Next
    For i = LR To 1 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Range(Cells(i, 1), Cells(i - 1, 1)).Merge
        End If
    Next i
    Columns(1).VerticalAlignment = xlCenter
    Application.DisplayAlerts = True
End Sub

 

[TrieuPhamPIL]

Bạn muốn nhanh phải dùng VBA, bạn tham khảo:

Sub abc()
    Dim i&, LR&
    LR = Cells(Rows.Count, "A").End(3).Row
    Application.DisplayAlerts = False
    On Error Resume Next
    For i = LR To 1 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Range(Cells(i, 1), Cells(i - 1, 1)).Merge
        End If
    Next i
    Columns(1).VerticalAlignment = xlCenter
    Application.DisplayAlerts = True
End Sub

Dear phulien1902,
cảm ơn bạn đã giúp đỡ. mình muốn biết sau khi import vào VBA thì lúc ra bản tính thì làm gì hay hàm gì tiếp theo vậy? Mình không rành về VBA lắm nên nhờ bạn hướng dẫn mình kỹ hơn nhé. cảm ơn bạn.

 

[phulien1902]

Dear phulien1902,
cảm ơn bạn đã giúp đỡ. mình muốn biết sau khi import vào VBA thì lúc ra bản tính thì làm gì hay hàm gì tiếp theo vậy? Mình không rành về VBA lắm nên nhờ bạn hướng dẫn mình kỹ hơn nhé. cảm ơn bạn.

Để chạy được Code, bạn làm như sau:
1. Mở File Excel của bạn ra
2.Gõ Alt +F11
3. Vào Insert ----> Module
4. Chép Code bài #2 vào cửa sổ bên phải.
5.Nhấn F5( để chạy Code)
Chỉ có vậy thôi bạn ơi.