Mọi người cho mình hỏi sub này bị lỗi chỗ nào, các bạn sửa giúp mình với nhé.
(Sub này để copy file từ thư mục này đến thư mục kia)
Sub CopyFile
Dim I as integer
Dim lrow as integer
Lrow =cells(rows.count,2).End(xlup).Row
For I = 2 to lrow
Filecopy "C:/" & cells(I,1).Value , cells(I,2).value&"\"&cells(I,1).Value
Next I