COPY ngược?

[keeponlylove]

Em có 1 bảng excel kèm theo,ở Sheet1 thứ tự các STORY là TUM,TMAI,T15,T14...T02,T01KT,T01 .Bây giờ bên sheet2 em muốn đảo lại thứ tự STORY là T01,T01KT,...T15,TMAI,TUM.Ai có cách nào chỉ em với.Thank.(chú ý là trong mỗi story có 6 giá trị,khi chuyển thì chuyển cả 1 vùng, giữ nguyên thứ tự trong STORY)

 

[ThuNghi]

Đặt thêm cột stt tăng dần bên sheet 1, qua sheet 2 giảm dần, còn lại là vlookup.

 

[SA_DQ]

Nếu muốn xài VBA thì đây, xin mời

Option Explicit

Sub CopyU()
 Dim lRow As Long, iJ As Long, lRowC As Long, iCol As Integer
 Dim tRng As Range, Story As String
 
 Sheets("Sheet1").Select:             Application.ScreenUpdating = False
 lRow = Range("A65432").End(xlUp).Row
 iCol = Cells(1, 255).End(xlToLeft).Column
 For iJ = lRow To 1 Step -1
    If Cells(iJ, 1) <> Story Then
        If iJ = lRow Then
            Story = Cells(iJ, 1)
            lRowC = iJ
        Else
            Cells(iJ + 1, 1).Resize(lRowC - iJ, iCol).Copy Destination:=Sheet3.Range("A" _
                & Sheet3.Range("A65432").End(xlUp).Row + 1)
            lRowC = iJ
    End If:     End If
 Next iJ
End Sub