Xin giúp đỡ chuyển các giá trị từ cột dọc sang hàng ngang theo các điều kiện

[minhthuy53]

Cảm ơn bạn rất nhiều, mình đã chạy được đúng như mong muốn.

View more random threads:

• Làm cách nào để biết một loại nguyên liệu có nhiều nhà cung cấp
• File từ dự toán
• Công thức tính tổng theo màu
• Lỗi excell!
• Hiển thị dữ liệu tự động khi gõ 1 điều kiện
• Nhặt dữ liệu báo cáo từ data (so sánh dữ liệu 2 ngày)
• Dùng phần mềm gì để mở file đuôi .dat
• Tạo đơn tổng từ đơn lẻ theo ngày xuất hàng
• Cách tính chi tiết xuất hàng theo kích thước, cách làm hàng sản xuất và hàng tồn kho
• Xóa dòng trong excel thỏa mãn nhiều điều kiện

[anh321]

Xin chào mọi người,
Mình là thành viên mới rất mong mọi người giúp đỡ mình giải quyết vấn đề gặp phải trong file gửi kèm dưới đây.
Mình có một file dữ liệu về các giá trị trong khí tượng được lấy theo cột dọc, mong muốn của mình là chuyển các dữ liệu ở cột dọc E thành các cột ngang một cách tự động dựa vào điều kiện giống nhau ở các cột dọc còn lại! Rất mong các bạn có thể chỉ bảo và giúp đỡ mình!
Xin cảm ơn mọi người.

[thach1990]

Bạn cho chạy macro này:

Option ExplicitSub ChepVungDL() Dim Rng As Range, Cls As Range Dim Col As Integer Set Rng = Columns("E:E").SpecialCells(xlCellTypeBlanks) [f1].Resize(20, 200).ClearContents For Each Cls In Rng    Col = Col + 17    If Col > 205 Then Exit For    Range(Cls.End(xlDown), Cls.End(xlDown).End(xlDown)).Copy Destination:=Cells(1, Col + 5) Next ClsEnd Sub  

Với chú í nhỏ như sau:
Vì mình chỉ có E2003 nên chỉ cho macro thử chép đến cột 205
Với Version cao hơn, bạn có thể vô hiệu hóa dòng lệnh mang số 7 ấy đi.

(Nếu chạy hết cần gần 800 cột