Hỏi cách chuyển nhiều dòng thành 1 dòng

[be_09]

làm sao vậy bác , hướng dẫn giúp mfinh với

Gần 2 tháng bạn mới vào xem lại bài.
Lâu quá nên tôi không nhớ cái File đó để chỗ nào, vì vậy bạn phải chờ tôi tìm chứ giờ viết lại tốn công quá.

 

[songlamnghean]

Mọi người cho hỏi làm thế nào để gộp các hàng lại với nhau như file đính kèm. Xin cảm ơn

 

[Hoàng Tuấn 868]

Mọi người cho hỏi làm thế nào để gộp các hàng lại với nhau như file đính kèm. Xin cảm ơn

Bạn tham khảo.

 

[Nhattanktnn]

Mọi người cho hỏi làm thế nào để gộp các hàng lại với nhau như file đính kèm. Xin cảm ơn

Đối với dữ liệu bạn đưa thì công thức kết hợp char(10) là ổn, nhưng mình nghĩ bài này phải dùng VBA vì dữ liệu thực tế sẽ không chỉ có nhiêu đó, và mỗi "STT" sẽ có số lượng hạng mục khác nhau. Bạn đưa dữ liệu nhiều thêm để xem có cần thiết dùng vba không nhé

 

[truongthon304]

Dùng tính năng Kutools/Merge & Split/Combine Rows, Columns or Cells... khá nhanh!

 

[xuongrongdat]

View attachment 244782
Dùng tính năng Kutools/Merge & Split/Combine Rows, Columns or Cells... khá nhanh!

Ủa cái Kutool này miễn phí hay phải mua vậy bạn?

 

[Nhattanktnn]

Ủa cái Kutool này miễn phí hay phải mua vậy bạn?

Mua nhé bạn, mình từng xài rồi, trước mình có key người ta share cũng xài được thời gian, giờ hết hạn gỡ luôn rồi

 

[songlamnghean]

Đối với dữ liệu bạn đưa thì công thức kết hợp char(10) là ổn, nhưng mình nghĩ bài này phải dùng VBA vì dữ liệu thực tế sẽ không chỉ có nhiêu đó, và mỗi "STT" sẽ có số lượng hạng mục khác nhau. Bạn đưa dữ liệu nhiều thêm để xem có cần thiết dùng vba không nhé

Đây là biểu có nhiều dữ liệu của mình, mòng các bạn giúp đỡ.

 

[Nhattanktnn]

Đây là biểu có nhiều dữ liệu của mình, mòng các bạn giúp đỡ.

Bạn xem thử:

Sub NoiChuoi()
Application.ScreenUpdating = False
Dim Rng As Range, I%, J%, K%, Tmp As String
Set Rng = Range("A1:C1705")
Range("C:C").ClearContents
For I = 1 To Rng.Rows.Count
    If Rng(I, 1).MergeCells Then
        J = Rng(I, 1).MergeArea.Rows.Count - 1
            For K = 0 To J
                Tmp = IIf(Tmp = "", Rng(I, 2), Tmp & Chr(10) & Rng(I + K, 2))
            Next
            Rng(I, 3) = Tmp
            I = I + J
            Tmp = ""
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[meteor205h]

Nếu như trong dữ liệu các cột có một vài số 0, muốn chuyển sang thành 1 dòng mà bỏ số 0 đi để nối số kế tiếp thì làm thế nào ạ. Ví dụ như file đính kèm

Bác làm được bài này chưa ạ, hướng dẫn em với!

 

[Hoàng Tuấn 868]

Bác làm được bài này chưa ạ, hướng dẫn em với!

Bạn gửi file lên xem thế nào..

 

[meteor205h]

Bạn gửi file lên xem thế nào..

Đây bác, nhiều cột thành 1 cột nhưng tự động bỏ qua dòng trống, sang ô tiếp theo.

 

[Hoàng Tuấn 868]

Đây bác, nhiều cột thành 1 cột nhưng tự động bỏ qua dòng trống, sang ô tiếp theo.

Bạn muốn gộp nối tiếp cột A hay gộp sang cột mới vậy.

 

[meteor205h]

Bạn muốn gộp nối tiếp cột A hay gộp sang cột mới vậy.

sang cột mới bạn!

 

[Hoàng Tuấn 868]

sang cột mới bạn!

Bạn xem thử............

 

[meteor205h]

Bạn xem thử............

Đúng ý mình luôn, cảm ơn bạn nhiều!

 

[Hà Minh Tâm]

Xin chào cả nhà, mình muốn chuyển hàng thành cột như file gửi, do số liệu quá nhiều mà copy thì quá khổ, xin cả nhà có thể hỗ trợ giúp mình không ? Xin cám ơn.

 

[HUONGHCKT]

Xin chào cả nhà, mình muốn chuyển hàng thành cột như file gửi, do số liệu quá nhiều mà copy thì quá khổ, xin cả nhà có thể hỗ trợ giúp mình không ? Xin cám ơn.

Bạn xem file. Hãy thử thêm bớt dữ liệu ở Sheet1 và nhấn nút "Chạy code" để xem và kiểm tra kết quả ở Ô M1/Sheet2.