Các Anh Chị Giúp Em Chỉnh Sủa Lại Code Lọc Dữ Liệu (3 người xem)

[giahuyks93]

Vấn Đề Của Em là :
Dữ Liệu ban Đầu Gồm Có 4 Cột Nhu trong excel :
Em đã lọc ra được vị trí lớn nhất tương ứng với các tầng cột tương ứng . Tại các cột K , L ,M

Em muốn hỏi là làm sao e thế ngược các giá trị đó vào ô vị trí tương ứng . Cột M thế vào Cột D .

Vd STORY5 C5 TT 0 ( ĐỔI THÀNH 0.68 ) . Mong Các A/chi giúp đỡ em.

Nếu A/c nào có cách viết code hay hơn góp ý . em xin nhận ạ

 

[haonlh]

Em muốn hỏi là làm sao e thế ngược các giá trị đó vào ô vị trí tương ứng . Cột M thế vào Cột D .

Vd STORY5 C5 TT 0 ( ĐỔI THÀNH 0.68 ) . Mong Các A/chi giúp đỡ em.

Xem file đính kèm. Tôi làm trên cột E. Hãy copy value cột E sang cột D

Tôi có thêm cột j (tầngcột)

 

[giahuyks93]

Xem file đính kèm. Tôi làm trên cột E. Hãy copy value cột E sang cột D

Tôi có thêm cột j (tầngcột)

Có cách nào không cần dùng hàm không anh ? Do cái bảng lọc cuối cùng phải xóa đi

 

[RoberLiem]

Vấn Đề Của Em là :
Dữ Liệu ban Đầu Gồm Có 4 Cột Nhu trong excel :
Em đã lọc ra được vị trí lớn nhất tương ứng với các tầng cột tương ứng . Tại các cột K , L ,M

Em muốn hỏi là làm sao e thế ngược các giá trị đó vào ô vị trí tương ứng . Cột M thế vào Cột D .

Vd STORY5 C5 TT 0 ( ĐỔI THÀNH 0.68 ) . Mong Các A/chi giúp đỡ em.

Nếu A/c nào có cách viết code hay hơn góp ý . em xin nhận ạ

Bạn thử chạy Sub này không cần chạy Sub LayChieuCaoCot() của bạn.
Kết quả tôi tạm gán vào cột F, bạn tuỳ chỉnh.

Public Sub GPE_MAX()
Dim Dic As Object, sArr(), dArr(), I As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("A6", Range("A6").End(xlDown)).Resize(, 4).Value
ReDim dArr(1 To UBound(sArr), 1 To 1)
For I = 1 To UBound(sArr)
    Tem = sArr(I, 1) & sArr(I, 2)
    If Abs(sArr(I, 4)) > Dic.Item(Tem) Then Dic.Item(Tem) = Abs(sArr(I, 4))
Next I
For I = 1 To UBound(sArr)
    Tem = sArr(I, 1) & sArr(I, 2)
    dArr(I, 1) = Dic.Item(Tem)
Next I
Range("F6").Resize(I - 1) = dArr    '<-----Gan vao cot F'
Set Dic = Nothing
End Sub

 

[giahuyks93]

Bạn thử chạy Sub này không cần chạy Sub LayChieuCaoCot() của bạn.
Kết quả tôi tạm gán vào cột F, bạn tuỳ chỉnh.

Public Sub GPE_MAX()
Dim Dic As Object, sArr(), dArr(), I As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("A6", Range("A6").End(xlDown)).Resize(, 4).Value
ReDim dArr(1 To UBound(sArr), 1 To 1)
For I = 1 To UBound(sArr)
    Tem = sArr(I, 1) & sArr(I, 2)
    If Abs(sArr(I, 4)) > Dic.Item(Tem) Then Dic.Item(Tem) = Abs(sArr(I, 4))
Next I
For I = 1 To UBound(sArr)
    Tem = sArr(I, 1) & sArr(I, 2)
    dArr(I, 1) = Dic.Item(Tem)
Next I
Range("F6").Resize(I - 1) = dArr    '<-----Gan vao cot F'
Set Dic = Nothing
End Sub

Hay quá .Em cám ơn a