tự động chèn dòng theo số cho trước

[teartear]

mình muốn chèn thêm các dòng theo số cho trước. VD : dòng số 1 số cho trước là 5 thì sẽ insert thêm 5 dòng, dòng số 1 số cho trước là 3 thì sẽ insert 3 dòng...mà không cần thao tác thủ công từng dòng

 

[catneko]

chọn đến cell chứa số cần insert, sau đó chạy code này:
Sub test()
s = ActiveCell.Value
For i = 1 To s
ActiveCell.Offset(1).EntireRow.Insert
Next i
End Sub

 

[teartear]

chọn đến cell chứa số cần insert, sau đó chạy code này:
Sub test()
s = ActiveCell.Value
For i = 1 To s
ActiveCell.Offset(1).EntireRow.Insert
Next i
End Sub

Mình không biết làm macros thế nào, vì thế có thể làm hướng dẫn dùm mình được không. cảm ơn

 

[teartear]

chọn đến cell chứa số cần insert, sau đó chạy code này:
Sub test()
s = ActiveCell.Value
For i = 1 To s
ActiveCell.Offset(1).EntireRow.Insert
Next i
End Sub

Với lệnh này thì nó chỉ mới chạy dòng đầu tiên mình chọn thôi chứ không tự động chạy tất cả các dòng khác.mà ở đây mình đang muốn chạy đồng thời tất cả các dòng có số cần insert, Có thể giúp mình viết thêm lệnh để hoàn chỉnh phần này hơn không?