Chào mọi người mình có đoạn mã VBA như này muốn copy cả khối nhưng lại không được.
Sub test_1()
Dim i, lr, vitricantim, vitri1, vitri2 As Integer
Dim sohang As Variant
On Error GoTo loi
Columns("D:D").Delete Shift:=xlToLeft
Columns("C:C").Insert Shift:=xlToRight...