Chuyển dữ liệu hàng ngang sang dữ liệu hàng dọc (1 người xem)

[tranvanhung2009]

Em chào các anh chị trong diễn đàn ạ.
Em có 1 file Excell, em muốn chuyển dữ liệu từ hàng ngang sang hàng dọc (như file Excell đính kèm ).
Em xin nhờ các anh chị trên diễn đàn rành về lập trình viết giúp e 1 Macro để chuyển dữ liệu như file Excell trên.
Em xin chân thành cám ơn ạ!

 

[Ngoai Thanh]

Em chào các anh chị trong diễn đàn ạ.
Em có 1 file Excell, em muốn chuyển dữ liệu từ hàng ngang sang hàng dọc (như file Excell đính kèm ).
Em xin nhờ các anh chị trên diễn đàn rành về lập trình viết giúp e 1 Macro để chuyển dữ liệu như file Excell trên.
Em xin chân thành cám ơn ạ!

Bạn dùng tạm cái thứ nửa ta nửa tây này đi .
Mình hết Quote nên đã đổi lại file tại đây.

 

[tranvanhung2009]

Cám ơn bạn. Có cách nào mà mình run 1 cái là nó chạy hết các mã không bạn.
Chứ ngồi nhập vào từ mã 1 thì mất thời gian lắm bạn.
Hơn nữa lại phải chỉnh lại cả font nữa

 

[Ngoai Thanh]

Cám ơn bạn. Có cách nào mà mình run 1 cái là nó chạy hết các mã không bạn.
Chứ ngồi nhập vào từ mã 1 thì mất thời gian lắm bạn.
Hơn nữa lại phải chỉnh lại cả font nữa

Thứ nhất ở bảng dọc sô thứ tự cử mã có tăng dần như số thứ tự không ?
thứ 2 dữ liệu bên bảng ngang có nhiều không , khoảng bao nhiêu dòng,hay chỉ có bấy nhiêu loại máy ?

 

[tranvanhung2009]

Dữ liệu của mã là do mình đặt lên có thể tăng dần được bạn à.
Bên bản ngang dữ liệu có nhiều bạn à khoảng 900 mã
Quan trọng làm khi chuyển sang mình phải căn chỉnh Font chữ nghiêng đậm theo bảng biểu.

 

[tranvanhung2009]

Bạn xem giúp mình code này lỗi ở chỗ nào mà không chạy được bạn nhỉ

Sub Macro3()
Dim i
Worksheets("Bang doc").Activate
For i = 1 To 9137
If Cells(i, "e") = "" Then
Cells(i, "d").Select.Font.Italic = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End If
Next i
End Sub

 

[Ngoai Thanh]

Bạn xem giúp mình code này lỗi ở chỗ nào mà không chạy được bạn nhỉ

Sub Macro3()
Dim i
Worksheets("Bang doc").Activate
For i = 1 To 9137
If Cells(i, "e") = "" Then
Cells(i, "d").Select.Font.Italic = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End If
Next i
End Sub

Chiều mình đi vắng và Mình hết Quote rồi nên đổi lại file tại bài #2. nếu bạn có đủ dữ liệu, enter tý là hết . xong mới chạy code định dạng tại sheet bảng dọc . (do code selectionchange nên đặt chuột tại P2 là nó chạy . Nên muốn tạm dừng code thì bạn gõ số 1 vào ô O2 và trước khi chạy code phải xóa số 1 tại O2 này đi .

 

[Ba Tê]

Dữ liệu của mã là do mình đặt lên có thể tăng dần được bạn à.
Bên bản ngang dữ liệu có nhiều bạn à khoảng 900 mã
Quan trọng làm khi chuyển sang mình phải căn chỉnh Font chữ nghiêng đậm theo bảng biểu.

Tạo 1 mẫu tại sheet "GPE", muốn Format Font, màu... thì chỉnh tại mẫu này, nó sẽ Copy "y chang" vào sheet "Bang doc".
Chưa thử vài trăm mã nó chạy có nỗi không.

 

[Quang_Hải]

Em chào các anh chị trong diễn đàn ạ.
Em có 1 file Excell, em muốn chuyển dữ liệu từ hàng ngang sang hàng dọc (như file Excell đính kèm ).
Em xin nhờ các anh chị trên diễn đàn rành về lập trình viết giúp e 1 Macro để chuyển dữ liệu như file Excell trên.
Em xin chân thành cám ơn ạ!

Tham khảo cách này. Không được xóa chỗ L1:L3

 

[tranvanhung2009]

Em cám ơn các anh nhiều.
Em đã làm được rồi, nhưng em vẫn còn 1 mắc nhỏ nữa ạ.
Ở cột C, D, g tại những ô bôi vàng thì em muốn tách chuỗi kí tự sau dấu "+" ở sheet "Bang doc". Sau đó chuỗi kí tự này tương ứng được chèn vào dòng tương ứng sau nó ở sheet "Bang doc 2" . Số dấu "+" cột C = Số "+" cột D. Có những ô lến tới 11 dấu "+"
Cám ơn các anh nhiều

 

[tranvanhung2009]

Tham khảo cách này. Không được xóa chỗ L1:L3

Code của anh rất tuyệt, nó chạy nhanh và tốc độ, tự động update khi dữ liệu nguồn thay đổi.
Chân thành cám ơn anh.

 

[Ngoai Thanh]

Em cám ơn các anh nhiều.
Em đã làm được rồi, nhưng em vẫn còn 1 mắc nhỏ nữa ạ.
Ở cột C, D, g tại những ô bôi vàng thì em muốn tách chuỗi kí tự sau dấu "+" ở sheet "Bang doc". Sau đó chuỗi kí tự này tương ứng được chèn vào dòng tương ứng sau nó ở sheet "Bang doc 2" . Số dấu "+" cột C = Số "+" cột D. Có những ô lến tới 11 dấu "+"
Cám ơn các anh nhiều

Bạn gửi toàn bộ cái bảng ngang của bạn lên thì mới biết mã nào có bao nhiêu bậc thợ để tách chứ . mà bạn phá vỡ hết code của mọi người rồi .

 

[tranvanhung2009]

Chuyển dữ liệu từ hàng ngang sang hàng dọc

Nhờ các anh giúp em file này với. Nội dung của nó em đã viết trong file.
Em xin cám ơn tất cả các anh đã giúp em rất nhiều.
Chân thành cám ơn tất cả mọi người