thuydao

Sub TachFileesop()
    Dim Duongdan As String 'Duong dan hien tai
    Dim TargetFilePath As String 'Duong dan file muc tieu
    Dim startIndex As Long ' Diem bat dau chay
    Dim StartIndexTarget As Long 'Diem bat dau chay cua file muc tieu
    Dim PassFile As String 'Pass file neu co
    Dim PassSheet As String 'Pass sheet
    Dim ColumnCheck As String 'Colum se so sanh'
    Duongdan = ThisWorkbook.Path
    ' Input Here