Sử dụng các hàm tìm và tách từ phiên âm, nghĩa tiếng Anh, tiếng Việt giúp thuận tiện cho việc tra từ và học từ mới:
Code VBA:
Sub tu()
' Keyboard Shortcut: Ctrl+Shift+D
Dim lSoDong As Long
Dim rCell As Range
Sheets("loc tu").Select
'Tinh so Dong Chi tiet
lSoDong = Range("B65000").End(xlUp).Row - 4
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Range("b5").Resize(lSoDong, 1).Select
For Each rCell In Selection
With rCell
.Offset(, 13).FormulaR1C1 = "=VLOOKUP(RC[-13],'3000 tu2'!R2C2:R5555C22,4,0)"
End With
Next
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
With ActiveSheet
i = 5
Do While .Cells(i, 2) <> ""
If .Cells(i, 5) = "" Then
.Range(.Cells(i, 3), .Cells(i, 34)).ClearContents
End If
i = i + 1
Loop
End With
Range("b5").Select
End Sub

Trân trọng