Vấn đề Insert hàng bằng Macro

[Ếch Xanh]

Tôi ghi lại 2 macro như sau:

1) Tôi chọn khối hàng và insert row:

Sub Macro1()
    Rows("10:12").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C15").Select
End Sub

2) Tôi chọn khối ô và insert row:

Sub Macro2()
    Range("B10:B12").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Xin hướng dẫn làm sao có thể chọn vị trí nào đó và insert hàng (hoặc cột) theo số lượng hàng (cột) theo ý muốn không? Chẳng hạn như tại ô A2 tôi muốn insert thêm 4 hàng nữa, thì phải làm sao?

Xin cám ơn.

 

[nghiaphuc]

Tôi ghi lại 2 macro như sau:

1) Tôi chọn khối hàng và insert row:

Sub Macro1()
Rows("10:12").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C15").Select
End Sub

2) Tôi chọn khối ô và insert row:

Sub Macro2()
Range("B10:B12").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Xin hướng dẫn làm sao có thể chọn vị trí nào đó và insert hàng (hoặc cột) theo số lượng hàng (cột) theo ý muốn không? Chẳng hạn như tại ô A2 tôi muốn insert thêm 4 hàng nữa, thì phải làm sao?

Xin cám ơn.

Bạn dùng tạm code này nhé:

Sub InsertRow()
    Dim NoOfR As Integer
    NoOfR = InputBox("Nhap so hang can chen:")
    Selection.Resize(NoOfR).EntireRow.Insert
End Sub