Tự chèn dòng theo số lượng có sẵn (4 người xem)

[thientu5007]

Xin hỏi cách để chèn dòng tự động theo số lượng của ô NGUỒN để được giống sheet kết quả trong file.

 

[Hoàng Tuấn 868]

Chào mọi người mình, muốn hỏi phương pháp để tự động chèn số dòng theo số có sẵn. và đánh số thứ tự của dòng vừa được chèn.
Ví dụ mình có A1=4,B1=5..., mình muốn tự động chèn 4 dòng dưới A1 và 5 dòng dưới B1 thì làm thế nào vì chuỗi danh sách rất dài làm thủ công từng cái quá lâu ai có thể giúp với ạ.

Bạn đưa file thật lên xem cụ thể thế nào, làm ví dụ xong không giống file thật thì lại mất công. Đã chèn 4 dòng dưới A1= 4 rồi lại chèn 5 dòng dưới B1= 5 thì thành 9 dòng sao.

 

[SA_DQ]

Bạn tham khảo bài đăng ở đây: https://www.giaiphapexcel.com/diend...òng-từ-dữ-liệu-cho-trước.155485/#post-1026673

Những mong giúp được bạn ít nhiều!

 

[thientu5007]

Bạn đưa file thật lên xem cụ thể thế nào, làm ví dụ xong không giống file thật thì lại mất công. Đã chèn 4 dòng dưới A1= 4 rồi lại chèn 5 dòng dưới B1= 5 thì thành 9 dòng sao.

mình đang cần làm file dạng như vậy nhưng chưa biết làm như thế nào nên chưa có file gốc. mình ghi nhầm. A1=3,A2=4 chứ khống phải B1 nghĩa là chèn thêm 3 dòng vào dưới A1 kể cả A1. lúc đó có 3 dòng mới A1,A2,A3. A2(cũ) sẽ thành A4 và chạy tiếp tục như trên.

 

[Hoàng Tuấn 868]

mình đang cần làm file dạng như vậy nhưng chưa biết làm như thế nào nên chưa có file gốc. mình ghi nhầm. A1=3,A2=4 chứ khống phải B1 nghĩa là chèn thêm 3 dòng vào dưới A1 kể cả A1. lúc đó có 3 dòng mới A1,A2,A3. A2(cũ) sẽ thành A4 và chạy tiếp tục như trên.

Bạn nên để lại và dòng trên cùng cho tiêu đề, thêm vài chục dòng dữ liệu vào file và diễn giải ý bạn định làm gì, kết quả mong muốn cuối cùng ra sao thì mọi người mới biết mà tư vấn thêm cho bạn. Đưa ví dụ cùng vài con số mà còn nhầm như thế chắc khó có thể hiểu để giúp được.

 

[thientu5007]

Bạn tham khảo bài đăng ở đây: https://www.giaiphapexcel.com/diendan/threads/insert-thêm-số-dòng-từ-dữ-liệu-cho-trước.155485/#post-1026673

Những mong giúp được bạn ít nhiều!

Không hiểu lắm về lập trình, có thể giúp mình viết công thức theo file mẫu được không ạ. Cảm ơn

 

[SA_DQ]

. . . . . , có thể giúp mình viết công thức theo file mẫu được không ạ. Cảm ơn

Vậy bạn phải chờ các siêu nhân công thức nha; Còn mình khả năng này rất ư hạn chế!

Sub ChenDongTheoSoAnDing()
 Dim Rws As Long, W As Long, J As Long, SoDong As Long, DgThm As Integer, Z As Integer
 Dim WF As Object
 
 Rws = [A2].CurrentRegion.Rows.Count
 Set WF = Application.WorksheetFunction
 SoDong = WF.Sum([A1].Resize(Rws))
 ReDim Arr(1 To SoDong + 9, 1 To 3) As Long
 For J = 1 To Rws
    DgThm = Cells(J, "A").Value
    For Z = 1 To DgThm
        W = W + 1:                  Arr(W, 1) = Cells(J, "A").Value
        Arr(W, 2) = Z:              Arr(W, 3) = Cells(J, "C").Value
    Next Z
    If W Then
        [E1].Resize(W, 3).Value = Arr()
    End If
 Next J
End Sub

 

[Hoàng Tuấn 868]

Vậy bạn phải chờ các siêu nhân công thức nha; Còn mình khả năng này rất ư hạn chế!

Em đang chờ xem siêu nhân nào dùng công thức insert được dòng để học lỏm đây anh.

 

[VetMini]

Em đang chờ xem siêu nhân nào dùng công thức insert được dòng để học lỏm đây anh.

Xiêu nhơn cũng còn chờ thớt xác định nhiều chỗ.
Theo bài #4 thì thớt chỉ nghĩ là mình cần chứ có biết cái file nó ra làm sao đâu.