Dữ liệu nếu có "ảo" thì cũng phải "giống thật" chứ.Em có file dữ liệu excel, dữ liệu tổ chức theo dạng cột nên khi dùng pivot để tổng hợp hoặc làm báo cáo gặp rất nhiều khó khăn. Các anh/chị ai có giải pháp nào giúp em tổng hợp dữ liệu hoặc chỉnh lại dữ liệu theo hàng được thì chỉ giúp em nhé. Em cảm ơn
Sao lại vậy?Chữ hoa chỉ dùng để viết tiêu đề cho nổi. Còn dữ liệu ví dụ có "nổi" hay không thì là chuyện của người viết công thức giúp.
View attachment 240523
Thời buổi bi giờ văn hoá đảo điên, ngôn ngữ nằm trong tay của gú gồ. Hễ gõ mà gú gồ tìm được thì chính tả đâu còn là vấn đề?Sao lại vậy?
Nhìn, đọc thấy không ổn, sao giúp?
Sao phải "tiếp tay"chuyện "hồi nẫm" mình bị thầy cô thời tiểu học trừ điểm chính tả?
Thiệt tình không hiểu nổi.
Sáng dậy bị hắc hơi mấy cái, vào diễn đàn mới biết là được bác SA_DQ nhắc tên.Chủ bài đăng là dân Đồng nai; Vậy nên để NDU & BE09 hay . . . . (ĐN) lo đi thôi
Dạ như chú nói nhập dữ lieu theo chiều dọc mới thuận tiện khi tổng hợp báo cáo, nhưng file trên đang nhập theo phương ngangSáng dậy bị hắc hơi mấy cái, vào diễn đàn mới biết là được bác SA_DQ nhắc tên.
Chủ Topic vào diễn đàn là hỏi chung, thành viên nào cũng có thể giúp được.
Cái File trên nhìn cho đẹp, để tổng hợp hay làm cái gì đó cho thuận tiện thì phải thiết kế lại và nhập liệu theo chiều dọc.
Văn phòng phẩm và vật tư thì còn rất nhiều thứ nữa, vì vậy chủ Topic cũng cần phải có danh mục để nhập liệu cho thuận tiện. Nhưng chưa hiểu hết ý định của chủ Topic nên em không góp ý.
Chờ chủ Topic nêu cụ thể, rõ ràng thì mới đưa ra giải pháp sẽ phù hợp hơn.
Bạn sửa dữ liệu trong file như gợi ý của bài #2 trước đi, sẽ có người chuyển dữ liệu file đó thành cột.Dạ như chú nói nhập dữ lieu theo chiều dọc mới thuận tiện khi tổng hợp báo cáo, nhưng file trên đang nhập theo phương ngang
Ví dụ cuối mỗi tháng cháu muốn tổng hợp khách hàng nào lấy hàng gì, số lượng bao nhiêu =>dung Pivot thì ra quá dài, dung hàm tính tổng có điều kiện cũng quá dài nên gặp khó khan ạ. Ở đây mới chỉ là 1 ít dữ lieu và vật tư nếu them nhiều nữa thì thực sự khó theo dõi ạ.
Dạ vâng ạ, cháu đã upload lại file, mong được chú giúp ạBạn sửa dữ liệu trong file như gợi ý của bài #2 trước đi, sẽ có người chuyển dữ liệu file đó thành cột.
Có lẽ bạn chưa nhận thấy tiêu đề bài viết của bạn đang vi phạm nội quy, bạn nên xem qua nội quy rồi điều chỉnh lại đi nhé.Dạ vâng ạ, cháu đã upload lại file, mong được chú giúp ạ
Dạ cảm ơn anh đã nhắc, anh có thể chỉ giúp em giờ phải điều chỉnh thế nào được không ạ. Em tìm mà không thấy chỗ nào cho sửa tiêu đềCó lẽ bạn chưa nhận thấy tiêu đề bài viết của bạn đang vi phạm nội quy, bạn nên xem qua nội quy rồi điều chỉnh lại đi nhé.
Minh chưa phải sửa tiêu đề bao giờ nên cũng không biết chỗ bạn ạ.Dạ cảm ơn anh đã nhắc, anh có thể chỉ giúp em giờ phải điều chỉnh thế nào được không ạ. Em tìm mà không thấy chỗ nào cho sửa tiêu đề
Chạy codeDạ vâng ạ, cháu đã upload lại file, mong được chú giúp ạ
Sub ABC()
Dim sArr(), Res(), SanPham$
Dim sRow&, sCol&, sK&, k&, i&, j&
With Sheets("Feb")
i = .Range("A" & Rows.Count).End(xlUp).Row
sCol = .Cells(2, Columns.Count).End(xlToLeft).Column
sArr = .Range("A2", .Cells(i, sCol)).Value
sK = Application.Count(.Range("B4", .Cells(i, sCol - 1)))
End With
sRow = UBound(sArr)
ReDim Res(1 To sK, 1 To 6)
For j = 2 To sCol - 1
If sArr(1, j) = Empty Then sArr(1, j) = sArr(1, j - 1)
Next j
For i = 3 To sRow
For j = 2 To sCol - 1
If sArr(i, j) <> Empty Then
k = k + 1
Res(k, 1) = k: Res(k, 2) = sArr(i, sCol)
Res(k, 3) = sArr(i, 1): Res(k, 4) = sArr(1, j)
Res(k, 5) = sArr(2, j): Res(k, 6) = sArr(i, j)
End If
Next j
Next i
With Sheets("Sheet1")
i = .Range("A" & Rows.Count).End(xlUp).Row
If i > 2 Then .Range("A3:F" & i).Clear
If k Then
.Range("A3").Resize(sK, 6).NumberFormat = "General"
.Range("A3").Resize(sK, 6).Borders.LineStyle = 1
.Range("A3").Resize(sK, 6) = Res
End If
End With
MsgBox ("Xong roi rha!")
End Sub
Bạn xem thử file này, từ số liệu thô này bạn muốn làm gì thì tùy.Dạ vâng ạ, cháu đã upload lại file, mong được chú giúp ạ
Dạ em chạy trong module nhưng không được ạChạy code
Mã:Sub ABC() Dim sArr(), Res(), SanPham$ Dim sRow&, sCol&, sK&, k&, i&, j& With Sheets("Feb") i = .Range("A" & Rows.Count).End(xlUp).Row sCol = .Cells(2, Columns.Count).End(xlToLeft).Column sArr = .Range("A2", .Cells(i, sCol)).Value sK = Application.Count(.Range("B4", .Cells(i, sCol - 1))) End With sRow = UBound(sArr) ReDim Res(1 To sK, 1 To 6) For j = 2 To sCol - 1 If sArr(1, j) = Empty Then sArr(1, j) = sArr(1, j - 1) Next j For i = 3 To sRow For j = 2 To sCol - 1 If sArr(i, j) <> Empty Then k = k + 1 Res(k, 1) = k: Res(k, 2) = sArr(i, sCol) Res(k, 3) = sArr(i, 1): Res(k, 4) = sArr(1, j) Res(k, 5) = sArr(2, j): Res(k, 6) = sArr(i, j) End If Next j Next i With Sheets("Sheet1") i = .Range("A" & Rows.Count).End(xlUp).Row If i > 2 Then .Range("A3:F" & i).Clear If k Then .Range("A3").Resize(sK, 6).NumberFormat = "General" .Range("A3").Resize(sK, 6).Borders.LineStyle = 1 .Range("A3").Resize(sK, 6) = Res End If End With MsgBox ("Xong roi rha!") End Sub
Dạ đúng ý cháu luôn ạ. Cảm ơn chú rất nhiều. Cho cháu hỏi thêm chút cái này nếu bình thường không dùng VBA có thể xử lý được không ạ. VBA thì đúng là cháu không biết gì ạBạn xem thử file này, từ số liệu thô này bạn muốn làm gì thì tùy.
Dạ đúng ý cháu luôn ạ. Cảm ơn chú rất nhiều. Cho cháu hỏi thêm chút cái này nếu bình thường không dùng VBA có thể xử lý được không ạ. VBA thì đúng là cháu không biết gì ạBạn xem thử file này, từ số liệu thô này bạn muốn làm gì thì tùy.
Tôi không dám trả lời vì công thức Excel tôi "dở bẹc".Dạ đúng ý cháu luôn ạ. Cảm ơn chú rất nhiều. Cho cháu hỏi thêm chút cái này nếu bình thường không dùng VBA có thể xử lý được không ạ. VBA thì đúng là cháu không biết gì ạ
Bạn xem thử file này, từ số liệu thô này bạn muốn làm gì thì tùy.
Bài này giải bằng Scripting Dictionary thì có được không ạ ?Bạn xem thử file này, từ số liệu thô này bạn muốn làm gì thì tùy.
Yêu cầu chỉ là chuyển số liệu trong bảng thành cột dọc, từ đó chủ thớt có ý định dùng công cụ gì đó để làm theo ý mình.Bài này giải bằng Scripting Dictionary thì có được không ạ ?
File mình gởi có insert thêm "sheet1" ghi nhận kết quảDạ em chạy trong module nhưng không được ạ
View attachment 240938
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2