Thêm Số dòng cần insert xác định số lần thêm bằng Input box (2 người xem)

[giahuyks93]

Em có 1 file excel (trong file đính kèm) . Giữa khối ô có stt 1 và khối ô có stt 2 . em muốn chèn thêm 1 khối ô như vậy vào giữa 2 khối ô đó .Số lần chèn xử lí bằng dạng Input.box . Giống như cái nút e làm mà mình định được số lần .Em mới tập còn nhiều thiếu sót mong mọi người giúp đỡ .

 

[quanluu]

Em có 1 file excel (trong file đính kèm) . Giữa khối ô có stt 1 và khối ô có stt 2 . em muốn chèn thêm 1 khối ô như vậy vào giữa 2 khối ô đó .Số lần chèn xử lí bằng dạng Input.box . Giống như cái nút e làm mà mình định được số lần .Em mới tập còn nhiều thiếu sót mong mọi người giúp đỡ .

Thêm code này:
Dim i As Integer, sodong As Integer
sodong = InputBox("Can insert bao nhieu dong?")
For i = 1 To sodong

trước dòng:Selection.EntireRow.Insert..

và đặt Next trc Range("B8").Select

 

[giahuyks93]

Em cám ơn a rất nhiều