Chuyển theo dõi theo cột thành hàng

Chia sẻ bởi:hands

★★★★★

‹ Giúp đỡ công thức tìm ngày theo... Conditional formatting ›

Quảng cáo

Chào mọi người, hiện tại em có 1 file hơn 100 cột có fomat giống sheet data, em thấy theo dõi như thế khá là bất tiện nên em đưa về fomat mới như sheet kết quả.
Nhờ mọi người tạo giúp em công thức làm sao ra được sheet kết quả với ạ. Em ngồi làm tay chắc công ty đuổi việc em mất :))).
Em đính kèm file, mọi người xem giúp em với ạ.
Em cảm ơn mọi người !

Nếu data nhiều thì 1 cách dùng VBA
Alt-F11 mở cửa sổ VBA. Insert/module, dán code này vô.

Option Explicit
Sub ketqua()
Dim lr&, lc&, i&, j&, k&, rng, res(1 To 10000, 1 To 3)
With Sheets("DATA")
lr = .Cells(Rows.Count, "C").End(xlUp).Row
lc = .Cells(1, Columns.Count).End(xlToLeft).Column
rng = .Range("C1", .Cells(lr, lc)).Value
End With
For j = 2 To UBound(rng, 2)
For i = 2 To UBound(rng)
If Not IsEmpty(rng(i, j)) Then
k = k + 1
res(k, 1) = rng(1, j)
res(k, 2) = rng(i, 1)
res(k, 3) = rng(i, j)
End If
Next
Next
With Sheets("Ketqua")
.Range("B2:D10000").ClearContents
.Range("B2").Resize(k, 3).Value = res
End With
End Sub

Nhấn F5 để chạy, hoặc tạo nút nhấn rồi gán code vô như trong file.
Lưu file dạng .xlsm
Tôi đã thay tên sheet Ketqua (không có dấu mới đưa vào code VBA được)