Nhờ các bác giúp file tách nội dung theo tên

[hiv174]

em có 1 file tổng hợp muốn tách thành nhiều file nhỏ nhưng đến đoạn tách nội dung theo tên thì không đi tiếp được mong được các bác giúp( có file đính kèm). em xin cảm ơn!
tại phần tách tên thì em bị báo lỗi tại dòng: .Range("A5").Resize(dic.Count, 1).Value = Application.traspose(dic.Key)

 

[bebo021999]

Chưa xem file, nhưng chỗ này sai:

Application.traspose(dic.Key)

sửa thành

Application.transpose(dic.Keys)

hoặc

Worksheetfunction.transpose(dic.Keys)

Bài đã được tự động gộp: 28/3/23

Đoạn này cũng sai.
Sửa lại rồi nhé.

For i = 1 To UBound(arr, 1)
        'If Not dic.exists(arr(i, 1)) <> "" Then
        If Not dic.exists(arr(i, 1)) And arr(i, 1) <> "" Then
            dic.Add arr(i, 1), arr(i, 1)
        End If
    Next i

 

[snow25]

em có 1 file tổng hợp muốn tách thành nhiều file nhỏ nhưng đến đoạn tách nội dung theo tên thì không đi tiếp được mong được các bác giúp( có file đính kèm). em xin cảm ơn!
tại phần tách tên thì em bị báo lỗi tại dòng: .Range("A5").Resize(dic.Count, 1).Value = Application.traspose(dic.Key)

Bạn thử làm theo cái này xem.

Liên kết: https://youtu.be/QTeTOH5Kx4M

 

[hiv174]

Chưa xem file, nhưng chỗ này sai:

Application.traspose(dic.Key)

sửa thành

Application.transpose(dic.Keys)

hoặc

Worksheetfunction.transpose(dic.Keys)

Bài đã được tự động gộp: 28/3/23

Đoạn này cũng sai.
Sửa lại rồi nhé.

For i = 1 To UBound(arr, 1)
        'If Not dic.exists(arr(i, 1)) <> "" Then
        If Not dic.exists(arr(i, 1)) And arr(i, 1) <> "" Then
            dic.Add arr(i, 1), arr(i, 1)
        End If
    Next i

cảm ơn bác, Worksheetfunction.transpose(dic.Keys) thì chạy được nhưng Application.transpose(dic.Keys) thì không chạy được là vì sao hả bác,transpose em không thấy trong gợi ý bác ah