em có một bảng dữ liệu như sau:
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234
viết hàm để tương ứng với mỗi dòng hiện tại sẽ chèn vào bên dưới 1 dòng . Xin cảm ơn!
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234
Em có một bảng dữ liệu như sau:
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234
Viết hàm để tương ứng với mỗi dòng hiện tại sẽ chèn vào bên dưới 1 dòng . Xin cảm ơn!
1 abc 1231
2 dzf 123
3 fdsf 444
4 hhh 234
Sub chendong()
Dim dl, kq, i, j, k
dl = [a1:c5].Value
ReDim kq(1 To UBound(dl) * 2, 1 To 3)
For i = 1 To UBound(dl)
For j = 1 To 3
kq(k + 1, j) = dl(i, j)
Next
k = k + 2
Next
[a1].Resize(k, 3) = kq
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2