Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Dùng công thức chắc không kham nỗiMì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
Gặp ví dụ thì làm VBA theo ví dụ, gặp file thật thì "chạy".
[GPECODE=vb]Public Sub ToTiTe()
Dim sArr(), dArr(1 To 65000, 1 To 2), I As Long, J As Long, K As Long, Tem As Long
sArr = Range([A4], [B65536].End(xlUp)).Value
For I = 1 To UBound(sArr, 1)
Tem = sArr(I, 2)
For J = 1 To Tem
K = K + 1
dArr(K, 1) = sArr(I, 1)
dArr(K, 2) = 1
Next J
Next I
[J4].Resize(K, 2) = dArr
End Sub[/GPECODE]
File đính kèm
Lần chỉnh sửa cuối: