Mình có 1 bảng công xuất từ phần mềm ra dạng cột chi tiết,làm sao chuyển nó sang hàng (1 người xem)

[huyenvtus]

Dear Các Bạn

Mình có 1 bảng giá trị chấm công được xuất ra từ phần mềm. Tuy nhiên nó là dạng cột chi tiết. Giờ mình cần xuất ra dạng hàng thì làm thế nào nhỉ. Các bạn xem file gán kèm của mình rồi tư vấn giúp mình nhé, sheet 1 là dữ liệu, sheet 2 là kết quả mình mong muốn. Thanks,

 

[dxvien]

Muốn chuyển hàng thành cột hoặc ngược lại: Sau khi copy, paste transpose

 

[huyenvtus]

Bạn ạ, bên mình có vài trăm CN cơ, muốn tìm hàm mà nó ra được hết, chứ không thể copy từng như người thế được!

 

[vu_tuan_manh_linh]

Bạn ạ, bên mình có vài trăm CN cơ, muốn tìm hàm mà nó ra được hết, chứ không thể copy từng như người thế được!

Nếu không chê là thủ công thì bạn dùng giải pháp cột phụ như thế này!

 

[huyenvtus]

Cám ơn Mr. Linh, mình sẽ xem có phát triển ra từ hàm này được không. Thanks,

 

[ChanhTQ@]

Các Bạn:
Mình có 1 bảng giá trị chấm công được xuất ra từ phần mềm. Tuy nhiên nó là dạng cột chi tiết. Giờ mình cần xuất ra dạng hàng thì làm thế nào nhỉ. Các bạn xem file gán kèm của mình rồi tư vấn giúp mình nhé, sheet 1 là dữ liệu, sheet 2 là kết quả mình mong muốn.

Cái việc này nên giao cho macro nó làm;
Công thức làm thì fê lắm!

 

[Quang_Hải]

Dear Các Bạn

Mình có 1 bảng giá trị chấm công được xuất ra từ phần mềm. Tuy nhiên nó là dạng cột chi tiết. Giờ mình cần xuất ra dạng hàng thì làm thế nào nhỉ. Các bạn xem file gán kèm của mình rồi tư vấn giúp mình nhé, sheet 1 là dữ liệu, sheet 2 là kết quả mình mong muốn. Thanks,

Thử code này đi cho nhanh. Công thức chắc là máy bị đơ luôn quá

Sub DocNgang()
Dim StartD, Res(), Data(), i, k, n, x
With Sheet1
   StartD = Application.Min(.[E:E]) - 1
   Data = .Range("A4", .[V65536].End(3)).Value
   ReDim Res(1 To UBound(Data), 1 To 40)
End With
k = 1
With CreateObject("scripting.dictionary")
   For i = 1 To UBound(Data)
      n = CLng(Data(i, 5))
      If Not .exists(Data(i, 1)) Then
         k = k + 1
         .Add Data(i, 1), k
         Res(k, 1) = Data(i, 1)
         Res(k, 2) = Data(i, 2)
         Res(k, n - StartD + 2) = Data(i, 22)
      Else
         x = .Item(Data(i, 1))
         Res(x, n - StartD + 2) = Data(i, 22)
      End If
      Res(1, n - StartD + 2) = Data(i, 5)
   Next
End With
Sheet2.[A2].Resize(k, 40) = Res
End Sub