Nhờ giúp đỡ : Chèn và xóa "n" hàng bằng VBA trong excel

Tham gia ngày
12 Tháng một 2019
Bài viết
4
Thích
1
Điểm
15
Tuổi
28
#1
Chào mọi người,

Xin mọi người hướng dẫn giúp mình cách chèn và xóa 'n' hàng bằng cách bôi hàng cần chèn và xóa ( hiện tại mình chèn và xóa đc 1 hàng chọn).
- Chèn: bôi n hàng, công thức copy hàng 12 và insert n hàng tại vị trí vừa bôi.
- Xóa: bôi n hàng, xóa n vừa chọn.

Code của mình copy trên mạng, xin mọi người giúp đở.
Cảm ơn mn nhiều

Sub CHENDONG()
Dim lRow As Long
Dim IQuestion As String

lRow = ActiveCell.Row
Rows(lRow & ":" & lRow).Select
IQuestion = UCase(IQuestion)

Rows("12").Select
Selection.Copy
' Chon ca dong tai vi tri khoi o chon
Selection.EntireRow.Select
Rows(lRow & ":" & lRow).Select
Selection.Insert Shift:=xlDown
Rows(lRow & ":" & lRow).Select

Application.CutCopyMode = False
End Sub

Capture.PNG
 

File đính kèm

HieuCD

Thành viên gạo cội
Tham gia ngày
14 Tháng chín 2010
Bài viết
5,040
Thích
7,987
Điểm
560
#3
Chào mọi người,

Xin mọi người hướng dẫn giúp mình cách chèn và xóa 'n' hàng bằng cách bôi hàng cần chèn và xóa ( hiện tại mình chèn và xóa đc 1 hàng chọn).
- Chèn: bôi n hàng, công thức copy hàng 12 và insert n hàng tại vị trí vừa bôi.
- Xóa: bôi n hàng, xóa n vừa chọn.

Code của mình copy trên mạng, xin mọi người giúp đở.
Cảm ơn mn nhiều

Sub CHENDONG()
Dim lRow As Long
Dim IQuestion As String

lRow = ActiveCell.Row
Rows(lRow & ":" & lRow).Select
IQuestion = UCase(IQuestion)

Rows("12").Select
Selection.Copy
' Chon ca dong tai vi tri khoi o chon
Selection.EntireRow.Select
Rows(lRow & ":" & lRow).Select
Selection.Insert Shift:=xlDown
Rows(lRow & ":" & lRow).Select

Application.CutCopyMode = False
End Sub

View attachment 210849
Công thức Bảng lương cột "Phụ cấp khu vực" dòng có dòng không kam2 sao copy?
 
Tham gia ngày
12 Tháng một 2019
Bài viết
4
Thích
1
Điểm
15
Tuổi
28
#4
Công thức Bảng lương cột "Phụ cấp khu vực" dòng có dòng không kam2 sao copy?
Công thức Bảng lương cột "Phụ cấp khu vực" dòng có dòng không kam2 sao copy?
Mình copy dữ liệu nguyên 1 hàng chứ ko phải từng cột đâu bạn, như file mình thì copy và chèn, xóa đc nhưng chỉ có 1 hàng khi nhấp lệnh. Mình muốn chèn n hàng.
 

HieuCD

Thành viên gạo cội
Tham gia ngày
14 Tháng chín 2010
Bài viết
5,040
Thích
7,987
Điểm
560
#5
Mình copy dữ liệu nguyên 1 hàng chứ ko phải từng cột đâu bạn, như file mình thì copy và chèn, xóa đc nhưng chỉ có 1 hàng khi nhấp lệnh. Mình muốn chèn n hàng.
Gợi ý cho bạn 1 ví dụ, bạn vận dụng vào code của mình, làm tới làm lui nếu chưa ổn thì gởi lên tiếp
Mã:
Sub ABC()
    Dim fRow As Long, eRow As Long
    fRow = Selection.Row
    eRow = fRow + Selection.Rows.Count - 1
    
    Rows(fRow & ":" & eRow).Delete
    
    Rows(fRow & ":" & eRow).Insert
    
    Range("A12:AQ12").Copy Cells(14, 1)
    
    Range("A12:AQ12").Copy Range("A15:A17")
End Sub
 
Tham gia ngày
12 Tháng một 2019
Bài viết
4
Thích
1
Điểm
15
Tuổi
28
#6
Gợi ý cho bạn 1 ví dụ, bạn vận dụng vào code của mình, làm tới làm lui nếu chưa ổn thì gởi lên tiếp
Mã:
Sub ABC()
    Dim fRow As Long, eRow As Long
    fRow = Selection.Row
    eRow = fRow + Selection.Rows.Count - 1
   
    Rows(fRow & ":" & eRow).Delete
   
    Rows(fRow & ":" & eRow).Insert
   
    Range("A12:AQ12").Copy Cells(14, 1)
   
    Range("A12:AQ12").Copy Range("A15:A17")
End Sub
Cảm ơn bạn nhiều lắm, mình đã làm được rồi.
 
Top