Cần giúp đỡ về việc quản lý bảng dữ liệu theo từng chi tiết (1 người xem)

[hoalv1989]

Mình có vấn đề này muốn nhờ anh em GPE giúp đỡ. Mình có 1 bảng thể hiện tên chi tiết (sách, vở, bút...) và 1 cột số lượng. Ví dụ Bảng 1 có thông tin như sau: Sách:2, vở:3, bút:4...Giờ mình muốn chuyển thành Bảng 2 với thông tin như sau: Sách:1, Sách:1; Vở:1,Vở:1,Vở:1; Bút:1,Bút:1,Bút:1,Bút:1.Ý mình muốn tách chi tiết từng loại ra( Sách có số lượng 2 thì tách làm 2, vở có 3 thì tách làm 3...). Vậy có cách nào để làm nhanh không? Bảng của mình gồm rất nhiều số liệu việc tách bằng tay dường như rất khó và rất lâu. Mình đính kèm file bên dưới mong các cao thủ chỉ giúp. Thanks

 

[Quang_Hải]

Mình có vấn đề này muốn nhờ anh em GPE giúp đỡ. Mình có 1 bảng thể hiện tên chi tiết (sách, vở, bút...) và 1 cột số lượng. Ví dụ Bảng 1 có thông tin như sau: Sách:2, vở:3, bút:4...Giờ mình muốn chuyển thành Bảng 2 với thông tin như sau: Sách:1, Sách:1; Vở:1,Vở:1,Vở:1; Bút:1,Bút:1,Bút:1,Bút:1.Ý mình muốn tách chi tiết từng loại ra( Sách có số lượng 2 thì tách làm 2, vở có 3 thì tách làm 3...). Vậy có cách nào để làm nhanh không? Bảng của mình gồm rất nhiều số liệu việc tách bằng tay dường như rất khó và rất lâu. Mình đính kèm file bên dưới mong các cao thủ chỉ giúp. Thanks

Ế quá nên kiếm mấy bài này làm tạm cho vui
Cho code này vào bấm cái xẹt là xong.

Sub QH()
Dim data(), kq(1 To 65536, 1 To 2), i, j, k
data = Range([A4], [B65536].End(3)).Value
For i = 1 To UBound(data)
   For j = 1 To data(i, 2)
      k = k + 1
      kq(k, 1) = data(i, 1)
      kq(k, 2) = 1
   Next
Next
[D4].Resize(k, 2) = kq
End Sub

Trả lời xong rồi thì thấy nó nằm chỗ này là sao ta?
http://www.giaiphapexcel.com/forum/...-nhanh-đáp-nhanh-về-công-thức-(phần-2)/page62

 

[hoalv1989]

Thank bác. Mình đang cần gấp nên lập 2 cái top để hỏi

Ế quá nên kiếm mấy bài này làm tạm cho vui
Cho code này vào bấm cái xẹt là xong.

Sub QH()
Dim data(), kq(1 To 65536, 1 To 2), i, j, k
data = Range([A4], [B65536].End(3)).Value
For i = 1 To UBound(data)
   For j = 1 To data(i, 2)
      k = k + 1
      kq(k, 1) = data(i, 1)
      kq(k, 2) = 1
   Next
Next
[D4].Resize(k, 2) = kq
End Sub

Trả lời xong rồi thì thấy nó nằm chỗ này là sao ta?
http://www.giaiphapexcel.com/forum/...-nhanh-đáp-nhanh-về-công-thức-(phần-2)/page62