Chèn thêm số dòng tùy ý (1 người xem)

[khuongvietphong]

Em nhờ mọi người viết giúp em đoạn code chèn thêm số dòng tùy ý . Cụ thê như hình dưới đây ạ



Làm thế nào để được cột A giống như cột C
Em xin cảm ơn !

 

[SA_DQ]

Bạn cho macro này chạy trên trang tính cần thiết:

Option Explicit
Sub ThemDòngTùyHúng()
 Dim Dg As Byte, Rws As Long, J As Long
 
 Sheet1.Select:         Randomize
 Rws = [A2].CurrentRegion.Rows.Count
 For J = Rws - 1 To 2 Step -1
    Dg = 1 + 9 * Rnd() \ 1
    Rows(J & ":" & J).Resize(Dg).Insert
 Next J
End Sub

 

[phulien1902]

Em nhờ mọi người viết giúp em đoạn code chèn thêm số dòng tùy ý . Cụ thê như hình dưới đây ạ

View attachment 149209

Làm thế nào để được cột A giống như cột C
Em xin cảm ơn !

Tham khảo nhé:

Sub khuongvietphong()
    Dim LR As Long
    For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value <> " " Then
            Rows(LR).Insert
        End If
    Next LR
End Sub

 

[khuongvietphong]

Cảm ơn sự giúp đỡ của mọi người ạ. Đối với người mới học VBA như em thì cách của anh phulien1902 có vẻ dễ hiểu hơn chút, còn cách của tác giả HYen17 em sẽ để giành để tìm hiểu sau vì hiện tại em vẫn chưa biết Randomize với CurrentRegion là gì ?

Cho em hỏi thêm chút là giờ em muốn chèn thêm 2 ,3 ...dòng trống tùy ý chứ không phải 1 dòng trống nữa thì em phải sửa lại code trên thế nào ạ.

 

[mhung12005]

Cho em hỏi thêm chút là giờ em muốn chèn thêm 2 ,3 hay nhiều dòng hơn tùy ý chứ không phải 1 dòng nữa thì em phải sửa lại code trên thế nào ạ.

Sub khuongvietphong()    Dim LR As Long
    For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value <> " " Then
            Rows(LR).[B][COLOR=#ff0000]resize(n)[/COLOR][/B].Insert
        End If
    Next LR
End Sub

Bạn thêm đoạn màu đỏ vào, số dòng muốn insert là n, còn làm sao để đưa 1 số vào n cho tiện thì tùy bạn.

 

[khuongvietphong]

Sub khuongvietphong()    Dim LR As Long
    For LR = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & LR).Value <> " " Then
            Rows(LR).[B][COLOR=#ff0000]resize(n)[/COLOR][/B].Insert
        End If
    Next LR
End Sub

Bạn thêm đoạn màu đỏ vào, số dòng muốn insert là n, còn làm sao để đưa 1 số vào n cho tiện thì tùy bạn.

Đúng ý em rồi ạ. Cảm ơn anh nhiều