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

lamnguyenthanh

Thành viên mới
Tham gia ngày
12 Tháng một 2019
Bài viết
4
Được thích
1
Điểm
15
Tuổi
28
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,359
Được thích
8,933
Điểm
560
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?
 

lamnguyenthanh

Thành viên mới
Tham gia ngày
12 Tháng một 2019
Bài viết
4
Được thích
1
Điểm
15
Tuổi
28
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,359
Được thích
8,933
Điểm
560
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
 

lamnguyenthanh

Thành viên mới
Tham gia ngày
12 Tháng một 2019
Bài viết
4
Được thích
1
Điểm
15
Tuổi
28
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