วิธีการลบอักษร ใน excel
01:28
สร้าง 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
0 ความคิดเห็น:
แสดงความคิดเห็น