Tách riêng từng email trong một ô excel (1 người xem)

[tiencruise]

Chào mọi người,

Em đang có một file dữ liệu, trong 1 ô có rất nhiều email cách nhau cách nhau bằng một dấu ";".
Có cách nào để mình tách riêng ra từng cột cho những email này không? Em đang cần dùng mail merge để gừi mail .

Cảm ơn mọi người.

 

[uronmapu]

Em copy đoạn code của bác vào đoạn code cũ trước thì báo lỗi ko được ạ

 

[uronmapu]

Xin chào,
Mình đang dùng đoạn code bên dưới để tách email

Sub tach_email()
Dim dic As Object
Dim dl, tachra
Dim i As Long, j As Byte
Set dic = CreateObject("scripting.dictionary")
  With Range([B2], [B65536].End(3))
    .Replace ChrW(10), ";"
      .Replace "-", ";":    .Replace "/", ";"
        .Replace ",", ";":    .Replace ":", ";"
          End With
dl = Range([B2], [B65536].End(3))
  For i = 1 To UBound(dl)
    tachra = Split(dl(i, 1), ";")
      For j = 0 To UBound(tachra)
        If Not dic.exists(Trim(tachra(j))) Then
          dic.Add Trim(tachra(j)), ""
        End If
      Next
  Next
[c2].Resize(dic.Count) = Application.Transpose(dic.keys)
End Sub

Nhưng với 65000 bản ghi (65000 hàng) thì khi tách báo lỗi

Run-time error '13'
Type mismatch

Tại dòng: [c2].Resize(dic.Count) = Application.Transpose(dic.keys)