Hỗ trợ sắp xếp dữ liệu

[Tình nghĩa giang hồ]

Chào anh chị, em có vấn đề này nhờ anh chị hỗ trợ giúp em.

Dữ liệu của em gồm 2 cột: cột K và cột L (mỗi cột thì dữ liệu tối đa 2000 dòng)

Kết quả mong muốn của em là cột P và cột Q.

Cột P là: cột K bỏ blank

Cột Q là: cột L bỏ blank và đảo ngược lại.

Nhưng có 1 vấn đề là các cột A,B,C,D,E… của em đang có dữ liệu, nên không thể filter, hay sort hay xóa dòng trống được.

Nhờ anh chị giúp em trường hợp này, em cảm ơn anh chị.

 

[snow25]

Chào anh chị, em có vấn đề này nhờ anh chị hỗ trợ giúp em.

Dữ liệu của em gồm 2 cột: cột K và cột L (mỗi cột thì dữ liệu tối đa 2000 dòng)

Kết quả mong muốn của em là cột P và cột Q.

Cột P là: cột K bỏ blank

Cột Q là: cột L bỏ blank và đảo ngược lại.

Nhưng có 1 vấn đề là các cột A,B,C,D,E… của em đang có dữ liệu, nên không thể filter, hay sort hay xóa dòng trống được.

Nhờ anh chị giúp em trường hợp này, em cảm ơn anh chị.

Dữ liệu là số hay chữ vậy bạn.Mà có trùng nhau không.

 

[Nhattanktnn]

Chào anh chị, em có vấn đề này nhờ anh chị hỗ trợ giúp em.

Dữ liệu của em gồm 2 cột: cột K và cột L (mỗi cột thì dữ liệu tối đa 2000 dòng)

Kết quả mong muốn của em là cột P và cột Q.

Cột P là: cột K bỏ blank

Cột Q là: cột L bỏ blank và đảo ngược lại.

Nhưng có 1 vấn đề là các cột A,B,C,D,E… của em đang có dữ liệu, nên không thể filter, hay sort hay xóa dòng trống được.

Nhờ anh chị giúp em trường hợp này, em cảm ơn anh chị.

Ủa cứ chọn vùng mỗi cột rồi sort bình thường thôi. Chỉ là khi sort nó hiện bảng này thì chọn như hình

 

[bebo021999]

Option Explicit
Sub test()
Dim lr&, i&, k&, rng, arr()
lr = Range("K:L").Find("*", , , , xlPrevious, xlPrevious).Row
ReDim arr(1 To lr - 1, 1 To 2)
rng = Range("K2:L" & lr).Value
    For i = 1 To lr - 1
        If Len(rng(i, 1)) > 0 Then
            k = k + 1
            arr(k, 1) = rng(i, 1)
        End If
    Next
    k = 0
    For i = lr - 1 To 1 Step -1
        If Len(rng(i, 2)) > 0 Then
            k = k + 1
            arr(k, 2) = rng(i, 2)
        End If
    Next
Range("P2").Resize(lr - 1, 2).Value = arr
End Sub

 

[Tình nghĩa giang hồ]

Option Explicit
Sub test()
Dim lr&, i&, k&, rng, arr()
lr = Range("K:L").Find("*", , , , xlPrevious, xlPrevious).Row
ReDim arr(1 To lr - 1, 1 To 2)
rng = Range("K2:L" & lr).Value
    For i = 1 To lr - 1
        If Len(rng(i, 1)) > 0 Then
            k = k + 1
            arr(k, 1) = rng(i, 1)
        End If
    Next
    k = 0
    For i = lr - 1 To 1 Step -1
        If Len(rng(i, 2)) > 0 Then
            k = k + 1
            arr(k, 2) = rng(i, 2)
        End If
    Next
Range("P2").Resize(lr - 1, 2).Value = arr
End Sub

Dạ quá đúng ý của em rồi, cảm ơn anh Bebo nhiều.

 

[HUONGHCKT]

Chào anh chị, em có vấn đề này nhờ anh chị hỗ trợ giúp em.

Dữ liệu của em gồm 2 cột: cột K và cột L (mỗi cột thì dữ liệu tối đa 2000 dòng)

Kết quả mong muốn của em là cột P và cột Q.

Cột P là: cột K bỏ blank

Cột Q là: cột L bỏ blank và đảo ngược lại.

Nhưng có 1 vấn đề là các cột A,B,C,D,E… của em đang có dữ liệu, nên không thể filter, hay sort hay xóa dòng trống được.

Nhờ anh chị giúp em trường hợp này, em cảm ơn anh chị.

Góp vui.

Option Explicit

Sub XEP()
Dim i&, j&, t&, lr&, Nho&, Lon&
Dim rng As Range, KQ()
Dim Ws As Worksheet
Set Ws = Sheet1
ReDim KQ(1 To 10000, 1 To 2)

For j = 11 To 12
lr = Ws.Cells(Rows.Count, j).End(xlUp).Row
Set rng = Ws.Range(Cells(2, j), Cells(lr, j))
If j = 11 Then
    For i = 1 To Application.CountIf(rng, "<>") '.Rows.Count
        KQ(i, 1) = Application.WorksheetFunction.Aggregate(15, 6, rng, i)
    Next i
Else
   For t = 1 To Application.CountIf(rng, "<>")
    KQ(t, 2) = Application.WorksheetFunction.Aggregate(14, 6, rng, t)
    Next t
End If
Next j
If i > t Then
    Ws.Range("N2").Resize(i, 2) = KQ
Else
    Ws.Range("N2").Resize(t, 2) = KQ
End If
    
End Sub

 

[bebo021999]

Góp vui.

Đang mặc định data trong 2 cột đó là giá trị và sort tăng dần à bạn?
Lỡ đâu:
- Giá trị nhưng không sort
- text

 

[HUONGHCKT]

Đang mặc định data trong 2 cột đó là giá trị và sort tăng dần à bạn?
Lỡ đâu:
- Giá trị nhưng không sort
- text

Tôi cứ ngỡ là sort và nhìn file thì đúng là toàn số cả.
Cảm ơn anh đã xem bài và nhắc nhở. Khi đăng lên rồi mới thấy bài của anh.
Tôi nghĩ là trình của chủ thớt cao hơn tôi rất nhiều nên chỉ có ý là góp vui thôi.