Xin hỏi cách chuyển đổi data từ dọc sang ngang

[kevintoro]

Hi anh em,minh mới tham gia diễn đàn,mong được anh em giúp đỡ
Hiz mình dược sếp giao công việc là vào web search thông tin các ngành nghề của 64 tỉnh thành Việt Nam sau đó copy thông tin thành 1 file excel cho sếp nhưng phải theo đúng mẫu hiz,mình lên web www.nhungtrangvang.com lấy thông tin thì thấy họ cung cấp đầy đủ nhưng khi copy và past vào excel thì dữ liệu nằm hàng dọc không theo hàng như mẫu excel của sếp.Mong anh em giúp đỡ chỉ mình cách chuyễn data từ dọc sang ngang dùm minh
Mình sẽ gởi file excel mẫu của sếp và file excel của mình copy từ web về cho anh em coi và chỉ mình dùm nha

 

[yeudoi]

Cái này bạn copy/ paste special/ transpose

 

[volga]

Hi anh em,minh mới tham gia diễn đàn,mong được anh em giúp đỡ
Hiz mình dược sếp giao công việc là vào web search thông tin các ngành nghề của 64 tỉnh thành Việt Nam sau đó copy thông tin thành 1 file excel cho sếp nhưng phải theo đúng mẫu hiz,mình lên web www.nhungtrangvang.com lấy thông tin thì thấy họ cung cấp đầy đủ nhưng khi copy và past vào excel thì dữ liệu nằm hàng dọc không theo hàng như mẫu excel của sếp.Mong anh em giúp đỡ chỉ mình cách chuyễn data từ dọc sang ngang dùm minh
Mình sẽ gởi file excel mẫu của sếp và file excel của mình copy từ web về cho anh em coi và chỉ mình dùm nha

Xem thử cái này nhe !
Bạn thử thêm dử liệu ở J4 & K5 Xem nó thay đổi thế nào ?
Không biết đúng ý không ?
Thân

 

[kevintoro]

Cách sử dụng nhanh paste special transpose

Cảm ơn anh em đã giúp đỡ mình đã chuyển được data từ dọc sang ngang rồi,nhưng không biết có marco or lệnh nào giúp mình làm nhanh paste special transpose không
Ví dụ như file mẫu mình sẻ gởi cuối bài:
Mình copy data dọc từ A1:A58,mình sử dụng lệnh paste special transpose để dữ liệu chuyển từ dọc sang ngang dữ liệu(C1:E15).mong anh em giúp đỡ để khi mình chỉ cần copy dữ liệu dọc vào thì sẽ tự động chuyển sang dữ liệu ngang(lệnh hay marco đều được).Mong nhận được sự chỉ giáo của anh em

 

[ndu96081631]

Cảm ơn anh em đã giúp đỡ mình đã chuyển được data từ dọc sang ngang rồi,nhưng không biết có marco or lệnh nào giúp mình làm nhanh paste special transpose không
Ví dụ như file mẫu mình sẻ gởi cuối bài:
Mình copy data dọc từ A1:A58,mình sử dụng lệnh paste special transpose để dữ liệu chuyển từ dọc sang ngang dữ liệu(C1:E15).mong anh em giúp đỡ để khi mình chỉ cần copy dữ liệu dọc vào thì sẽ tự động chuyển sang dữ liệu ngang(lệnh hay marco đều được).Mong nhận được sự chỉ giáo của anh em

Thử code này xem!

Sub Transpose()
 Dim i As Long
 Range("C1").CurrentRegion.Clear
 With Range([A1], [A65536].End(xlUp)).SpecialCells(2)
   For i = 1 To .Areas.Count
     .Areas(i).Copy: Cells(i, 3).PasteSpecial , , , True
   Next i
 End With
 Application.CutCopyMode = False
End Sub

 

[kevintoro]

thank bạn mình đã chạy được rồi,mình tiết kiệm rất nhiều thời gian hihi

 

[kiencang76]

Vậy chuyển từ dòng thành cột thì làm thế nào bạn ơi. Có thể chuyển nhiều cột vô 1 dòng (ô) được không bạn.
nếu được giúp mình ở files đính kèm. Có hướng dẫn cụ thể thì tốt. để mình còn ứng dụng vào làm việc khác
Cảm ơn trước nhé!