Làm thế nào để chuyển dữ liệu hàng ngang thành cột dọc?

[dvh.hy.9902]

Nhưng nếu mảng dữ liệu của em thế này thì làm thế nào? Em có file đính kèm mong được các bác trên diễn đàn giúp em với

 

[nmhung49]

Nhưng nếu mảng dữ liệu của em thế này thì làm thế nào? Em có file đính kèm mong được các bác trên diễn đàn giúp em với

Bạn xem file này coi đúng không, tính tiếp

 

[thy huyen]

Bạn xem file này coi đúng không, tính tiếp

em cũng có thắc mắc giống bạn này, có ai cao tay chỉ giúp e với, em cám ơn nhiều

 

[thy huyen]

em cũng có thắc mắc giống bạn này, có ai cao tay chỉ giúp e với, em cám ơn nhiều. Em có file đính kèm, mong anh chị giúp em ah, cám ơn anh chị nhiều.

 

[thy huyen]

em cũng có thắc mắc giống bạn này, có ai cao tay chỉ giúp e với, em cám ơn nhiều. Em có file đính kèm, mong anh chị giúp em ah, cám ơn anh chị nhiều.

 

[Ba Tê]

em cũng có thắc mắc giống bạn này, có ai cao tay chỉ giúp e với, em cám ơn nhiều. Em có file đính kèm, mong anh chị giúp em ah, cám ơn anh chị nhiều.

Viết cái gì vậy Trời!
3 bài cũng chẳng thấy file.

 

[thy huyen]

file này nè anh, e ko biết sao tải lên ko dc

 

[Ba Tê]

file này nè anh, e ko biết sao tải lên ko dc

Muốn không copy thủ công thì dùng công thức hoặc VBA.
Công thức thì xem file này, VBA thì chờ.... người khác.

 

[thy huyen]

Muốn không copy thủ công thì dùng công thức hoặc VBA.
Công thức thì xem file này, VBA thì chờ.... người khác.

em cám ơn anh nhiêu ah. Nhưng cho e hỏi vùng GPE là vùng nào?

 

[Ba Tê]

em cám ơn anh nhiêu ah. Nhưng cho e hỏi vùng GPE là vùng nào?

GPE là Name, Ctrl+F3 sẽ thấy.
Thấy rồi thì copy nó ra ngoài để xem và "nhức đầu".
Hoặc tô chọn chữ GPE trên thanh công thức, ấn F9 xem nó ra cái gì.

 

[thy huyen]

GPE là Name, Ctrl+F3 sẽ thấy.
Thấy rồi thì copy nó ra ngoài để xem và "nhức đầu".
Hoặc tô chọn chữ GPE trên thanh công thức, ấn F9 xem nó là gì.
Tks u again. Có điều nhức đầu thiệt. ^^

 

[HenryHuy06]

Mình nhớ là chọn vùng dự liệu rồi "Transpose" là xong mà

 

[Ba Tê]

Mình nhớ là chọn vùng dự liệu rồi "Transpose" là xong mà

Phải làm thử trước, khi đựợc rồi mới nói chứ.
Cho thời gian là 10 phút.

 

[honey_552911]

Mọi người giúp em file này với ạ.
1. Chuyển dữ liệu từ sheet Báo cáo -> giống như Sheet "Tổng hợp"
2. àm phiếu in tự động dữ liệu nằm ngang giống sheet "IN"

Em xin cảm ơn mọi người

 

[Lê Duy Thương]

Mọi người giúp em file này với ạ.
1. Chuyển dữ liệu từ sheet Báo cáo -> giống như Sheet "Tổng hợp"
2. làm phiếu in tự động dữ liệu nằm ngang giống sheet "IN"

Em xin cảm ơn mọi người

Chỉ có thể giúp được bạn câu 1
Câu hai nhìn đơn giản nhưng tôi chịu bạn chịu khó gõ tay nhá.Kha kha

Sub TEST()
   On Error Resume Next
Dim I As Integer, Crits As Range, Extrs As Range, Data As Range
          Sheet2.Range("3:6000").Clear
  For I = 1 To Sheet1.UsedRange.Columns.Count - 5
           Sheet1.Range("E2").Resize(Sheet1.UsedRange.Rows.Count, 1).Value = Sheet1.Range("E1").Offset(, I).Value
       With Sheet2
          .Range("N1") = Sheet1.Range("E1").Offset(, I)
          .Range("N2") = ">0"
          .Range("B6500").End(3).Offset(, 5) = Sheet1.Range("E1").Offset(, I).Value
           Set Data = Sheet1.Range("A1").CurrentRegion
           Set Crits = Sheet2.Range("N1").CurrentRegion
           Set Extrs = Sheet2.Range("B6500").End(3).Resize(1, 6)
           Data.AdvancedFilter 2, Crits, Extrs, False
          .Range("B2:G2").Copy .Range("B6500").End(3).Offset(1)
        End With
   Next
        With Sheet2
          .Range("N1:N2").Clear
          .Range("B2").CurrentRegion.Borders.LineStyle = 1
          .Range("B2").CurrentRegion.AutoFilter 1, "Ngày"
          .Range("B2").CurrentRegion.Offset(1).Delete (3)
          .Range("B2").CurrentRegion.AutoFilter
          .Range("G2") = "S" & ChrW(7889) & " L" & ChrW(432) & ChrW(7907) & "ng"
          .Range("B2").Select
       End With
End Sub

 

[Ba Tê]

Chỉ có thể giúp được bạn câu 1
Câu hai nhìn đơn giản nhưng tôi chịu bạn chịu khó gõ tay nhá.Kha kha

Sub TEST()
   On Error Resume Next
Dim I As Integer, Crits As Range, Extrs As Range, Data As Range
          Sheet2.Range("3:6000").Clear
  For I = 1 To Sheet1.UsedRange.Columns.Count - 5
           Sheet1.Range("E2").Resize(Sheet1.UsedRange.Rows.Count, 1).Value = Sheet1.Range("E1").Offset(, I).Value
       With Sheet2
          .Range("N1") = Sheet1.Range("E1").Offset(, I)
          .Range("N2") = ">0"
          .Range("B6500").End(3).Offset(, 5) = Sheet1.Range("E1").Offset(, I).Value
           Set Data = Sheet1.Range("A1").CurrentRegion
           Set Crits = Sheet2.Range("N1").CurrentRegion
           Set Extrs = Sheet2.Range("B6500").End(3).Resize(1, 6)
           Data.AdvancedFilter 2, Crits, Extrs, False
          .Range("B2:G2").Copy .Range("B6500").End(3).Offset(1)
        End With
   Next
        With Sheet2
          .Range("N1:N2").Clear
          .Range("B2").CurrentRegion.Borders.LineStyle = 1
          .Range("B2").CurrentRegion.AutoFilter 1, "Ngày"
          .Range("B2").CurrentRegion.Offset(1).Delete (3)
          .Range("B2").CurrentRegion.AutoFilter
          .Range("G2") = "S" & ChrW(7889) & " L" & ChrW(432) & ChrW(7907) & "ng"
          .Range("B2").Select
       End With
End Sub

Lý do câu 2 chẳng thể làm vì không có điều kiện lọc.
Chẳng biết lọc theo ngày hay theo cái gì, điều kiện nằm ở đâu.
Gõ tay là "khà khà".............

 

[honey_552911]

Lý do câu 2 chẳng thể làm vì không có điều kiện lọc.
Chẳng biết lọc theo ngày hay theo cái gì, điều kiện nằm ở đâu.
Gõ tay là "khà khà".............

Thưa anh, phiếu xuất em sẽ lọc theo ngày từ sheet "Tổng hợp" ạ. Có cách nào giúp em được không ạ? Chứ đánh tay thì khà khà tới khuya mất ạ

Cảm ơn các anh đã giúp đỡ.

 

[Ba Tê]

Thưa anh, phiếu xuất em sẽ lọc theo ngày từ sheet "Tổng hợp" ạ. Có cách nào giúp em được không ạ? Chứ đánh tay thì khà khà tới khuya mất ạ

Cảm ơn các anh đã giúp đỡ.

Lọc theo ngày thì phải có 1 "chỗ" nào đó để xác định được là theo ngày nào?
Trong sheet của bạn có chỗ nào để biết là bạn muốn in ngày nào?
Mấy cột #35, #36.... bạn ghi trong mẫu không đầy đủ thì sao lọc được.
Tôi "chế" lại như trong file, lấy dữ liệu từ Báo Cáo. (Vì Tổng hợp cũng lấy từ Báo cáo). Nếu bạn xài không được thì "chịu" luôn.
Nhập ngày vào Ô S1 code sẽ chạy.

 

[honey_552911]

Lọc theo ngày thì phải có 1 "chỗ" nào đó để xác định được là theo ngày nào?
Trong sheet của bạn có chỗ nào để biết là bạn muốn in ngày nào?
Mấy cột #35, #36.... bạn ghi trong mẫu không đầy đủ thì sao lọc được.
Tôi "chế" lại như trong file, lấy dữ liệu từ Báo Cáo. (Vì Tổng hợp cũng lấy từ Báo cáo). Nếu bạn xài không được thì "chịu" luôn.
Nhập ngày vào Ô S1 code sẽ chạy.

Em chưa học công thức anh đã làm giúp em, nên khi phát sinh thêm vấn đề em ko biết cách chỉnh sửa. Em làm lại file, mong anh Ba Tê giúp em thêm lần nữa.
1, Điều kiện lọc phiếu xuất là cột: khách hàng, Cont, và ngày tháng
2, Nếu số dòng của dữ liệu lọc được lớn hơn số dòng của phiếu xuất thì em phải sửa công thức như thế nào để hợp lý ạ? (cái này em gặp khi lọc phiếu ngày 24, có tới 47 dòng, mà phiếu có 30 dòng nên em chụp lại hình ảnh báo lỗi ở "sheet 2")
3, Trong trường hợp phát sinh thêm cột size hàng hóa thì sẽ sửa công thức ở chỗ nào ạ.?

Cảm ơn anh,
P/s: Bể dốt mênh mông, em đang quay đầu đấy ạ

 

[honey_552911]

Anh Ba Tê, File này ạ, File trên em chưa có cột Cont