Em bị lỗi gì trong đoạn code sau, nhờ các bác chỉ giúp (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

minhtuan0203

Thành viên mới
Tham gia
21/12/12
Bài viết
1
Được thích
0
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Rows("6:9").Select
Selection.Copy

Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("B10").Select
ActiveCell.Offset(rowOffset:=-5, columnOffset:=0).Activate
Application.CutCopyMode = False
Selection.Copy
Range("C10:C14").Select
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=6, columnOffset:=-1).Activate
Rows("6:9").Select
Selection.Copy
Rows("16:16").Select
Selection.Insert Shift:=xlDown
Range("B15").Select
'ActiveCell.Offset(rowOffset:=-10, columnOffset:=0).Activate
Application.CutCopyMode = False
Selection.Copy
Range("C15:C19").Select
ActiveSheet.Paste
ActiveCell.Offset(rowOffset:=6, columnOffset:=-1).Activate



End Sub
1578387949114.png
 
Web KT

Bài viết mới nhất

Back
Top Bottom