Note: The other languages of the website are Google-translated. Back to English
English English

วิธีลบเฉพาะข้อความจากเซลล์ที่มีตัวเลขและข้อความใน Excel

ตามภาพหน้าจอด้านล่างสำหรับเซลล์เหล่านั้นผสมกับตัวเลขและข้อความจะลบข้อความทั้งหมดและเก็บเฉพาะตัวเลขไว้ในเซลล์ได้อย่างไร วิธีการในบทความนี้สามารถช่วยคุณได้

ลบเฉพาะข้อความจากเซลล์ที่มีตัวเลขและข้อความด้วยฟังก์ชันที่ผู้ใช้กำหนดเอง
ลบเฉพาะข้อความจากเซลล์ที่มีตัวเลขและข้อความด้วย Kutools for Excel


ลบเฉพาะข้อความจากเซลล์ที่มีตัวเลขและข้อความด้วยฟังก์ชันที่ผู้ใช้กำหนดเอง

คุณยังสามารถใช้ฟังก์ชันที่กำหนดโดยผู้ใช้ด้านล่างเพื่อลบข้อความออกจากเซลล์ที่ระบุและเก็บตัวเลขไว้เท่านั้น

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ รหัส หน้าต่าง. ดูภาพหน้าจอ:

รหัส VBA: ลบเฉพาะข้อความจากเซลล์ที่มีตัวเลขและข้อความ

Function OnlyNums(strWord As String)
    Dim strChar As String
    Dim x As Integer
    Dim strTemp As String

    strTemp = ""
    Application.ScreenUpdating = False
    For x = 1 To Len(strWord)
        strChar = Mid(strWord, x, 1)
        If Asc(strChar) >= 48 And _
          Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
        End If
    Next
    Application.ScreenUpdating = True
    OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

3 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

4. เลือกเซลล์ว่างป้อนสูตร = OnlyNums (A2) ลงในแถบสูตรแล้วกดปุ่ม เข้าสู่ กุญแจสำคัญในการรับผลลัพธ์ เลือกเซลล์ผลลัพธ์ต่อไปลาก Fill Handle ลงเพื่อให้ได้ผลลัพธ์ทั้งหมด ดูภาพหน้าจอ:

หมายเหตุ: ในสูตร A2 คือเซลล์ที่คุณจะลบข้อความและเก็บเฉพาะตัวเลข โปรดเปลี่ยนตามที่คุณต้องการ

ตอนนี้คุณสามารถเห็นข้อความทั้งหมดถูกลบออกและมีเพียงตัวเลขเท่านั้นที่จะถูกเก็บไว้ในเซลล์ที่ระบุ


ลบเฉพาะข้อความจากเซลล์ที่มีตัวเลขและข้อความด้วย Kutools for Excel

ส่วนนี้จะแนะนำไฟล์ ลบอักขระ ประโยชน์ของ Kutools สำหรับ Excel. ด้วยยูทิลิตี้นี้คุณสามารถลบอักขระที่ไม่ใช่ตัวเลขทั้งหมดออกจากเซลล์ได้ด้วยการคลิกเพียงไม่กี่ครั้งและเก็บเฉพาะตัวเลขไว้ในเซลล์ กรุณาดำเนินการดังนี้

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกเซลล์ที่คุณต้องการลบข้อความและเก็บตัวเลขไว้เท่านั้นจากนั้นคลิก Kutools > ข้อความ > ลบอักขระ

2 ใน ลบอักขระ ให้เลือกเฉพาะไฟล์ ไม่ใช่ตัวเลข จากนั้นคลิกที่ไฟล์ OK ปุ่ม

จากนั้นอักขระที่ไม่ใช่ตัวเลข (ข้อความ) ทั้งหมดจะถูกลบออกจากเซลล์ที่เลือกทันทีตามภาพด้านล่างที่แสดง

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (3)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้ excel มาหลายปีแล้ว แต่ไม่ใช่พนักงานไฟฟ้าที่ไม่เคยใช้ Visual Basic ในสเปรดชีตมาก่อน วิธีนี้ได้ผลเป็นครั้งแรกโดยทำตามคำแนะนำที่ชัดเจนด้านบนและช่วยฉันประหยัดเวลาในการทำความสะอาดชีตที่นำเข้า ขอบคุณมาก - ชื่นชมมาก ไชโย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีด้วยกัน
ฉันค้นหาตาย VBA super und genau das was ich für meinen Job benötige. Jedoch eine Frage กับ euch Spezialisten, wenn ich führende Nullen habe dann funktioniert die VBA bei mir nicht, gibt's da einen Trick damit dies auch geht? Grüße
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโรแลนด์
ขอโทษ ฉันไม่ค่อยเข้าใจที่คุณหมายถึง คุณต้องการเก็บเลขศูนย์นำหน้าไว้หลังจากลบเฉพาะข้อความออกจากเซลล์หรือไม่?
หรือคุณสามารถอัปโหลดภาพหน้าจอของข้อมูลของคุณที่นี่เพื่ออธิบายปัญหาให้ชัดเจนยิ่งขึ้น
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ