Nhờ lọc giúp Danh sách (1 người xem)

[longlt08]

Xin chào ACE trên GPE !
Tôi có 1 file Danh sách xuất từ chương trình quản lý gia phả ra file excel. Do chương trình mặc định (trộn ô, tô màu...) nên chuyển về danh sách bình thường gặp nhiều khó khăn và mất nhiều thời gian.
Tôi gửi file kèm theo nhờ mọi giúp tôi việc lọc và chuyển giúp về 2 cột bên cạnh.
Xin chân thành cảm ơn !

 

[quocgiacan]

Xin chào ACE trên GPE !
Tôi có 1 file Danh sách xuất từ chương trình quản lý gia phả ra file excel. Do chương trình mặc định (trộn ô, tô màu...) nên chuyển về danh sách bình thường gặp nhiều khó khăn và mất nhiều thời gian.
Tôi gửi file kèm theo nhờ mọi giúp tôi việc lọc và chuyển giúp về 2 cột bên cạnh.
Xin chân thành cảm ơn !

Dùng công thức mảng:

M3=SUBSTITUTE(TRIM(OFFSET($A3,,MAX(IF(B3:K3<>"",COLUMN($A$1:$J$1))))),"- ","")

Ctrl+Shift+Enter, fill xuống

Chúc bạn ngày vui.

 

[befaint]

Xin chào ACE trên GPE !
Tôi có 1 file Danh sách xuất từ chương trình quản lý gia phả ra file excel. Do chương trình mặc định (trộn ô, tô màu...) nên chuyển về danh sách bình thường gặp nhiều khó khăn và mất nhiều thời gian.
Tôi gửi file kèm theo nhờ mọi giúp tôi việc lọc và chuyển giúp về 2 cột bên cạnh.
Xin chân thành cảm ơn !

M3=INDEX(B3:K3,1,MATCH("*",B3:K3,0))
copy xuống.

 

[quocgiacan]

Xin chào ACE trên GPE !
Tôi có 1 file Danh sách xuất từ chương trình quản lý gia phả ra file excel. Do chương trình mặc định (trộn ô, tô màu...) nên chuyển về danh sách bình thường gặp nhiều khó khăn và mất nhiều thời gian.
Tôi gửi file kèm theo nhờ mọi giúp tôi việc lọc và chuyển giúp về 2 cột bên cạnh.
Xin chân thành cảm ơn !

Thêm cách nữa:

M3=SUBSTITUTE(TRIM(LOOKUP("zzz",B3:K3)),"- ","")

Fill xuống

Chúc anh em ngày vui.

 

[Ba Tê]

Xin chào ACE trên GPE !
Tôi có 1 file Danh sách xuất từ chương trình quản lý gia phả ra file excel. Do chương trình mặc định (trộn ô, tô màu...) nên chuyển về danh sách bình thường gặp nhiều khó khăn và mất nhiều thời gian.
Tôi gửi file kèm theo nhờ mọi giúp tôi việc lọc và chuyển giúp về 2 cột bên cạnh.
Xin chân thành cảm ơn !

Tặng anh 1 Sub chạy cho vui.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, R As Long
sArr = Range("B3", Range("L3").End(xlDown)).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 2)
For I = 1 To R
    dArr(I, 2) = sArr(I, 11)
    For J = 1 To 10
        If sArr(I, J) <> Empty Then
            dArr(I, 1) = Trim(Replace(sArr(I, J), "-", ""))
            Exit For
        End If
    Next J
Next I
Range("M3:N3").Resize(R) = dArr
End Sub

 

[longlt08]

Tặng anh 1 Sub chạy cho vui.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, R As Long
sArr = Range("B3", Range("L3").End(xlDown)).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 2)
For I = 1 To R
    dArr(I, 2) = sArr(I, 11)
    For J = 1 To 10
        If sArr(I, J) <> Empty Then
            dArr(I, 1) = Trim(Replace(sArr(I, J), "-", ""))
            Exit For
        End If
    Next J
Next I
Range("M3:N3").Resize(R) = dArr
End Sub

Xin cảm ơn anh !