วิธีการลบอักษร ใน excel

สร้าง Function ขึ้นโดย

กด Alt-F11
สั่ง Insert Module
แล้วพิมพ์

Function NumString(Inp) As String

  xLen = Len(Inp)
 
  If xLen > 0 Then
     xOut = ""
     For I = 1 To xLen
         xCheck = Mid(Inp, I, 1)
         Select Case xCheck
                Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
                     xOut = xOut + xCheck
         End Select
     Next I
  NumString = xOut
  End If
End Function


จากนั้นเวลาใช้งาน ให้เขียนเป็นสูตรตามนี้ครับ
(โดยสมมุตว่าข้อมูลที่มีตัวเลขปนตัวอักษรอยู่ที่ a1)
=NumString(a1)

ก็จะได้เฉพาะส่วนที่เป็นตัวเลข แต่ผมเขียนให้ผลออกมา
ในรูปตัวอักษรนะครับ เพราะกันไว้กรณีตัวเลขมีความยาวมาก ๆ


 ที่มา:http://guru.google.co.th/guru/thread?tid=697a1fd1309898a0