Chuyển hàng chữ và số. (1 người xem)

[dongchi420]

Em có 1 câu hỏi mong anh chị giải quyết giúp em ạ. Và em có gửi file excell ạ. Em cám ơn ạ.

 

[giaiphap]

Em có 1 câu hỏi mong anh chị giải quyết giúp em ạ. Và em có gửi file excell ạ. Em cám ơn ạ.
View attachment 155767

Ô I4 bạn gõ công thức như sau:

=OFFSET($B$4,MATCH($H4,$B$4:$B$391,0)-2+COLUMN(A1),1,1,1)

sau đó fill công thức cho các ô còn lại.

 

[dongchi420]

em làm đươc rồi ạ, Nhưng còn những chử W1.w2.w3 thì làm sao cho nó thành 1 hàng dọc ạ, Anh giúp em cú chót ạ, Em cám ơn nhiều.

 

[phulien1902]

Bạn tham khảo Code:

Sub abc() 
   Dim Rng As Range 
   Set Rng = Range("C4").Resize(4)
    On Error Resume Next 
   Application.ScreenUpdating = False 
   Application.EnableEvents = False  
  Sheets("IMPORT 2015 STEP 1").Columns("B:B").Copy Sheets("Sheet1").Range("A1")        With Sheets(4)
       .Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete              .Range("A2:A100").Copy Sheets("IMPORT 2015 STEP 1").Range("H2")        .Columns("A:A").Delete 
   End With
    Do Until IsEmpty(Rng.Cells(1, 1)) 
       Rng.Copy        Cells(rows.Count, "I").End(xlUp).Offset(1).PasteSpecial Transpose:=True        Set Rng = Rng.Offset(4)        Application.CutCopyMode = True    Loop        Application.ScreenUpdating = True    Application.EnableEvents = True    On Error GoTo 0
End Sub

 

[concogia]

Em có 1 câu hỏi mong anh chị giải quyết giúp em ạ. Và em có gửi file excell ạ. Em cám ơn ạ.
View attachment 155767

Một cách giải bằng công thức
Thân

 

[Ba Tê]

Một cách giải bằng công thức
Thân

Thấy nó cũng có "quy luật" mà "đại ca". Mỗi mã 5 dòng chuyển thành 1 dòng 5 cột?
Túm nó ngay!
Mà cái này nếu quá nhiều dữ liệu thì "táng" nó bằng VBA cho "lành".
Híc!

 

[dongchi420]

Dạ, cám ơn các cao thủ đã tận tình chỉ bảo em ạ.

 

[dhn46]

Góp cho bạn thêm 1 cách dùng cột phụ kết hợp pivot table