Tách dữ liệu thành nhiều dòng (1 người xem)

[rockykhanh]

Chào anh chị,
Nhờ anh chị viết giúp macro tách dữ liệu 1 dòng thành nhiều dòng với điều kiện như bên dưới.
Xin cảm ơn.
[TABLE="width: 576"]
[TR]
[TD="class: xl95, width: 72"][/TD]
[/TR]
[/TABLE]
[TABLE="width: 500"]
[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]1;2;3[/TD]
[TD]=>[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]D[/TD]
[TD]5;6[/TD]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

 

[doatmenhhon]

Bạn xem file có đúng ý bạn không? Match font chữ là ổn
Sub Tach()
Dim Sarr
Dim x
Dim i, j, k, l, m As Long
With Sheet1
Sarr = .Range(.[A2], .[A65000].End(xlUp)).Resize(, 15)
End With
ReDim Darr(1 To 2000, 1 To 15)
On Error Resume Next
For i = 1 To UBound(Sarr)
x = Split(Sarr(i, 15), ";")
For l = 0 To UBound(x)
k = k + 1
Darr(k, 1) = k
Darr(k, 15) = x(l)
For m = 2 To 14
Darr(k, m) = Sarr(i, m)
Next m
Next l
Next i
With Sheet2
.[A2:O50000].ClearContents
If k Then
.[A2].Resize(k, 15).Value = Darr
lr = .[A65000].End(3).Row
.[A2:O65000].Borders.LineStyle = 0
.Range("A2:O" & lr).Borders.LineStyle = 1
Else
.[A2:O65000].Borders.LineStyle = 0
.[A2:O65000].ClearContents
End If
End With
End Sub

 

[rockykhanh]

Cám ơn anh! đúng ý em rồi

 

[doatmenhhon]

Hihi còn có bài gộp lại mình cũng làm hộ bạn ở bài gửi thứ 2 của bạn. Bạn thử xem lại coi http://www.giaiphapexcel.com/forum/...theo-điều-kiện-giống-nhau&p=670438#post670438. Giờ bạn có 2 công cụ tách gộp rồi nhé ^^

 

[chihiro nguyễn]

Anh gì ơi! Làm thế nào anh viết được 1 lập trình như thế kia? Anh học cái đấy ở đâu đấy. Em cũng muốn viết được như anh nhưng không tự học được vì không hiểu? Anh có biết chỗ nào dạy viết cái đấy không chỉ em với. Em cảm ơn ạ!

 

[phihndhsp]

Anh gì ơi! Làm thế nào anh viết được 1 lập trình như thế kia? Anh học cái đấy ở đâu đấy. Em cũng muốn viết được như anh nhưng không tự học được vì không hiểu? Anh có biết chỗ nào dạy viết cái đấy không chỉ em với. Em cảm ơn ạ!

bạn có thể liện hệ 0938 021 119 (Mộng Tiền) để được tư vấn học tập, trên diễn đàn đang gôm các thành viên để mở lớp VBA cơ bản trong tháng 11 hoặc 12 đó bạn

 

[rockykhanh]

Hihi còn có bài gộp lại mình cũng làm hộ bạn ở bài gửi thứ 2 của bạn. Bạn thử xem lại coi http://www.giaiphapexcel.com/forum/...theo-điều-kiện-giống-nhau&p=670438#post670438. Giờ bạn có 2 công cụ tách gộp rồi nhé ^^

Cám ơn doatmenhhon nhiều lắm! Nhưng có cách nào tạo 1 file macro riêng. Mỗi khi mở 1 file data cần gộp bấm run macro đó thì nó tự gộp được không? thay vì phải gắn macro vô file data mỗi lần làm.