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

Liên hệ QC

lamnguyenthanh

Thành viên mới
Tham gia
12/1/19
Bài viết
5
Được thích
2
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

  • CHEN HANG.xls
    723 KB · Đọc: 14
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?
 
Upvote 0
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.
 
Upvote 0
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
 
Upvote 0
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.
 
Upvote 0
Web KT
Back
Top Bottom