[Nhờ tư vấn] Tách một dòng trong chuỗi có nhiều dòng ! (1 người xem)

[mdcgiaphapexcel]

Vấn đề của mình như sau:

- Mình có một bảng Excel, nội dung là một list tên bài hát karaoke 5 số.
Dữ liệu trông các ô ở cột "TÊN BÀI HÁT" là chuỗi text có 2 dòng, gồm có TỰA BÀI và lời bài hát...., VD như:

"999 ĐÓA HOA HỒNG
Nhắc chi chuyện xưa...."

Giờ mình muốn tách lấy dòng "lời bài hát...." và xuất ra cột bên cạnh tương ứng với tất cả các dòng trong suốt list bài hát....

Mình gà Excel nên đã mày mò học hỏi ở nhiều "nơi" trên mạng vẫn không được, muốn mờ cả mắt rồi ngồi copy từng dòng sang muốn rụng cả tay, nên nay đành lên đây nhờ các pác pro hướng dẫn giúp mình

Xin cảm ơn trước, chúc mọi người ngày chủ nhật thoải mái và vui vẻ....!

 

[mdcgiaphapexcel]

Theo như mình tìm hiểu và "suy đoán mò", "bài toán" này đối với các bác pro là không hề hóc, nhưng mỗi tội với khả năng của mình thì không làm nổi.... nhưng đến giờ thì chưa thấy cao nhân nào chỉ giáo sau 11 lượt đọc, hjx.... mong là sớm có cao nhân nào ghé "ngang qua hàng em" và nhiệt tình hướng dẫn @@

Xin cập nhật file Ví dụ đính kèm để anh em tiện xem và giúp đỡ.... Thanks all !!

 

[viehoai]

Theo như mình tìm hiểu và "suy đoán mò", "bài toán" này đối với các bác pro là không hề hóc, nhưng mỗi tội với khả năng của mình thì không làm nổi.... nhưng đến giờ thì chưa thấy cao nhân nào chỉ giáo sau 11 lượt đọc, hjx.... mong là sớm có cao nhân nào ghé "ngang qua hàng em" và nhiệt tình hướng dẫn @@

Xin cập nhật file Ví dụ đính kèm để anh em tiện xem và giúp đỡ.... Thanks all !!

Dùng công thức tại E4:=LEFT(B4,FIND(CHAR(10),B4)) thử xem sao
Muốn nhanh với số liệu nhiều thì có thể dùng VBA

 

[mdcgiaphapexcel]

Dùng công thức tại E4:=LEFT(B4,FIND(CHAR(10),B4)) thử xem sao
Muốn nhanh với số liệu nhiều thì có thể dùng VBA

Xin cảm ơn bạn đã giúp đỡ, để mình test thử cái, cái list với vài chục ngàn dòng như thế, vậy bạn có thể hướng dẫn mình dùng BVA như bạn nói được không?
<SR mình ít bài quá nên chưa thấy nút thanks>
=====================================

Báo cáo: đã test hàm LEFT như trên của bạn viehoai, nhưng kết quả trả sang cell kế bên là "TÊN BÀI HÁT" chứ không phải là "Lời bài hát...." nhưng mong muốn, thêm nữa... tại cell "Tên bài hát" cũ bên kia vẫn còn cái dòng "lời bài hát"

Xin được trình bày thêm về trường hợp mình cần là cắt (không phải copy) dòng thứ 2 (sau Alt+Enter, và xóa luôn cái Alt+Enter này) trong chuỗi, dời sang cell bên cạnh - để cuối cùng được 2 cell, chứa 2 chuỗi riêng biệt, cell kết quả 1 "TÊN BÀI HÁT" và cell kết quả 2 chứa "Lời bài hát

Mình đã update thêm "file kết quả mong muốn" để các pro tiện về giúp đỡ, hjx hjx.... file đó mình làm thủ công nhưng với list bài hát chứa vài chục ngàn dòng thì..... mình cần một tập lệnh.... hay Macro hay một thứ gì đó như thế.... chứ "bàn tay ta sỏi đá không thành cơm nhanh như máy làm được...."

Lần nữa xin cảm ơn nếu được anh em giúp đỡ, chúc mọi người vui khỏe...View attachment FILE KET QUA MONG MUON.xls
==============
Thời điểm hiện tại đã là 412 lượt đọc mà chỉ mới xin được 1 ý kiến.... ôi đời tui.... khổ !

 

[viehoai]

Xin cảm ơn bạn đã giúp đỡ, để mình test thử cái, cái list với vài chục ngàn dòng như thế, vậy bạn có thể hướng dẫn mình dùng BVA như bạn nói được không?
<SR mình ít bài quá nên chưa thấy nút thanks>
=====================================

Báo cáo: đã test hàm LEFT như trên của bạn viehoai, nhưng kết quả trả sang cell kế bên là "TÊN BÀI HÁT" chứ không phải là "Lời bài hát...." nhưng mong muốn, thêm nữa... tại cell "Tên bài hát" cũ bên kia vẫn còn cái dòng "lời bài hát"

Xin được trình bày thêm về trường hợp mình cần là cắt (không phải copy) dòng thứ 2 (sau Alt+Enter, và xóa luôn cái Alt+Enter này) trong chuỗi, dời sang cell bên cạnh - để cuối cùng được 2 cell, chứa 2 chuỗi riêng biệt, cell kết quả 1 "TÊN BÀI HÁT" và cell kết quả 2 chứa "Lời bài hát

Mình đã update thêm "file kết quả mong muốn" để các pro tiện về giúp đỡ, hjx hjx.... file đó mình làm thủ công nhưng với list bài hát chứa vài chục ngàn dòng thì..... mình cần một tập lệnh.... hay Macro hay một thứ gì đó như thế.... chứ "bàn tay ta sỏi đá không thành cơm nhanh như máy làm được...."

Lần nữa xin cảm ơn nếu được anh em giúp đỡ, chúc mọi người vui khỏe...View attachment 86879
==============
Thời điểm hiện tại đã là 412 lượt đọc mà chỉ mới xin được 1 ý kiến.... ôi đời tui.... khổ !

Bạn xem file đúng ý bạn chưa nhé

 

[ptm0412]

Viehoai,
Kết quả là 1 mảng 2 cột luôn cho khỏe, làm chi 2 mảng?

 

[viehoai]

Viehoai,
Kết quả là 1 mảng 2 cột luôn cho khỏe, làm chi 2 mảng?

Dạ, em cảm ơn. Đúng là nói ra em thấy ngớ ngẩn thật

 

[ndu96081631]

Code của viethoai có đoạn:

If Arr(i, 1) = "" Then
  GoTo Stp
Else
  ......
End If

Trường có cell rổng nằm giữa dữ liệu thì... tèo

 

[viehoai]

Code của viethoai có đoạn:

If Arr(i, 1) = "" Then
  GoTo Stp
Else
  ......
End If

Trường có cell rổng nằm giữa dữ liệu thì... tèo

Dạ, em không nghĩ vậy, vì đơn giản là hay hát Ca, rao... OK
Ẹc..Ẹc.......

 

[ndu96081631]

Dạ, em không nghĩ vậy, vì đơn giản là hay hát Ca, rao... OK
Ẹc..Ẹc.......

Vì dữ liệu không phải của mình nên phải tính đến mọi trường hợp có thể xảy ra. Bạn cho mảng đến 10000 phần tử thì tiếc gì mà phải Goto chứ
Nếu là tôi thì tôi sẽ viết vầy

Sub Tach()
  Dim Arr(), SongN(), Lyrics(), NandLy
  Dim i As Long, tmp As String
  'On Error Resume Next
  Arr = Sheet1.Range("B2:B10000").Value
  ReDim SongN(1 To UBound(Arr), 1 To 2)
  For i = 1 To UBound(Arr)
    If Len(Arr(i, 1)) Then
      tmp = Arr(i, 1)
      NandLy = Split(tmp, vbLf)
      SongN(i, 1) = NandLy(0)
      If InStr(tmp, vbLf) Then SongN(i, 2) = NandLy(1)
    End If
  Next
  Sheet1.Range("C2").Resize(i - 1, 2).Value = SongN
End Sub

[

 

[mdcgiaphapexcel]

Bạn xem file đúng ý bạn chưa nhé

Xin cảm ơn bạn viehoai đã nhiệt tình giúp đỡ mình , 2 hôm nay bận túi bụi nên giờ mới lên được và tiếp tục "công trình".

Vì dữ liệu không phải của mình nên phải tính đến mọi trường hợp có thể xảy ra. Bạn cho mảng đến 10000 phần tử thì tiếc gì mà phải Goto chứ
Nếu là tôi thì tôi sẽ viết vầy

Em cũng xin cảm ơn anh, tiền bối ndu mong rằng vẫn được anh quan tâm và giúp đỡ em trong cái "pan" này ạh....

"Học nhiều ngu nhiều" - cái "gà" của em lại "lòi" ra khi em down file kết quả test của bạn viehoai về, mở lên thì nó báo thế này



em không xem được nội dung......

còn cái vụ chạy những đoạn code đó.... xin 2 pro hướng dẫn em thêm xíu nữa được không ạh.... cụ thể là làm những việc gì để áp dụng được phương pháp và code của 2 pro vào "công trình" của em ạh.... em xin cảm ơn nhiều ạh...

lúc em viết trả lời bài này thì cao nhân ndu cũng đang online nhưng em không biết làm sao để liên lạc nữa, hjx..... tiếc !

 

[mdcgiaphapexcel]

Em xin chân thành cảm ơn anh.
Quả là chuẩn không cần chình, đối với em đoạn code của anh với việc mà nó làm được đúng là.... "siêu pro" - nó làm được đúng như em cần.

Lần nữa cảm ơn anh và bạn viehoai, chúc sức khoẻ mọi người..... chúc anh em thành đạt và hạnh phúc nhé....

PS nếu có ai giải thích hộ những gì diễn ra trong [Sub Tach] của anh ndu trên thì tốt quá, mình muốn hiểu và học hỏi thêm.... Mình lên diễn đàn được vài ngày, toàn "bu bám" học hỏi.... mong là sẽ sớm đóng góp được gì đó cho diễn đàn..... ^.^