Chuyển đổi dữ liệu

[ZzNHCzZ]

Chào các anh chị GPE!
Em có 1 File dữ liệu dọc bây giờ muốn bẻ ngang thì làm sao cho nhanh được ạ?
Lúc trước em có làm được nhưng bây quên mất tiêu rồi. Tìm lại file hoài không thấy.
Mong anh chị hướng dẩn lại giúp em.

Thân!

 

[huycuongxd]

Chào các anh chị GPE!
Em có 1 File dữ liệu dọc bây giờ muốn bẻ ngang thì làm sao cho nhanh được ạ?
Lúc trước em có làm được nhưng bây quên mất tiêu rồi. Tìm lại file hoài không thấy.
Mong anh chị hướng dẩn lại giúp em.

Thân!

Muốn chuyển dữ liệu như bạn nói thì bạn copy vùng dữ liệu đó sau đó chọn Paste Special / Transpose.
Với file của bạn, bạn copy dữ liệu bên trái trước (chỉ 5 hàng này thôi)
ID; Buyer organisation name:; Country; Email:; Name
Sau đó Paste Special / Transpose
Lặp lại như vậy cho các dữ liệu bên cột phải.
Chúc bạn thành công!!!

 

[hoang_B]

Bạn xem có đúng ý không!

 

[ZzNHCzZ]

Muốn chuyển dữ liệu như bạn nói thì bạn copy vùng dữ liệu đó sau đó chọn Paste Special / Transpose.
Với file của bạn, bạn copy dữ liệu bên trái trước (chỉ 5 hàng này thôi)
ID; Buyer organisation name:; Country; Email:; Name
Sau đó Paste Special / Transpose
Lặp lại như vậy cho các dữ liệu bên cột phải.
Chúc bạn thành công!!!

Lúc trước mình làm cộng thức, nhưng giờ mất file đó rồi.
Dữ liệu của mình rất dài làm cách của bạn không được đâu lâu lắm

Thân!

 

[Dua_Chuot]

chon du lieu->Click phai ->format cell->Aligment->Orientation->Roi xoay no.hihih.ko hieu ý cua bạn???Nhưng làm đại đó.hihih.ac

 

[SA_DQ]

Bạn xài macro cặp sau, nha!

Option Explicit
Sub CopyDatabase()
 Dim lRow As Long, Jj As Long
 
 lRow = Sheets("DaTa").[A65500].End(xlUp).Row
 Sheets("KQ").Range("A1: E" & lRow * 5).Clear
 CopyTranspose Range("A3:A7")
 For Jj = 2 To lRow
   With Sheets("DaTa").Cells(Jj, 1)
      If .Value = "ID" Then _
         CopyTranspose .Offset(, 1).Resize(5, 1)
   End With
 Next Jj
End Sub

[B]Sub CopyTranspose(Rng As Range)[/B]
    Rng.Copy
    Sheets("KQ").Select
    Range("A" & [A65500].End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
[B]End Sub[/B]