Giả sử bạn có cột dữ liệu trong những ô có kết hợp các chữ cái cùng với những kí tự khác nhau và bạn chỉ muốn lấy những kí tự thuộc chữ cái , như hình dưới
 

 
Để làm được việc đó bạn cần thực hiện macro với nội dung như sau

Sub RemoveNotAlphas()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Tu van Tin hoc 1088"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub
 
Chạy macro trên nó sẽ hỏi bạn thực hiện công việc này trong những ô nào