Không muốn thay đổi định dạng hay công thức của bạn. bạn thử dùng code dài dài này coi
Sub tach()
Dim sh As Worksheet, wb As Workbook, arr, darr()
Dim i, k, Tmp As String, cuoi, dau As Integer, sh1 As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False...