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
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