วิธีแยกค่าทศนิยมจากสตริงใน Excel

บทช่วยสอนนี้จะบอกวิธีแยกค่าทศนิยมจากสตริงใน Excel เท่านั้น

แยกค่าทศนิยมด้วยสูตรใน Excel
แยกค่าทศนิยมด้วย VBA ใน Excel
แยกค่าทศนิยมได้อย่างง่ายดายด้วย Kutools for Excel

แยกค่าทศนิยมด้วยสูตรใน Excel

มีสูตรสองสูตรที่สามารถช่วยคุณแยกค่าทศนิยมจากสตริงเลือกสูตรใดสูตรหนึ่งตามที่คุณต้องการ

สูตรที่ไม่คำนึงถึงสัญลักษณ์ของค่า:

เลือกเซลล์และพิมพ์สูตรนี้ = ABS (A1-TRUNC (A1)) (A1 คือเซลล์ที่คุณต้องการแยกค่าทศนิยม) ลงในแถบสูตรแล้วกด เข้าสู่ สำคัญ. ให้เลือกเซลล์ผลลัพธ์แรกลากที่จับเติมลงเพื่อให้ได้ผลลัพธ์ทั้งหมด คุณสามารถเห็นค่าทศนิยมที่แยกออกมาโดยไม่มีเครื่องหมายดังภาพด้านล่างที่แสดง

สูตรที่แสดงถึงสัญลักษณ์ของค่า:

เลือกเซลล์และพิมพ์สูตรนี้ = A1-TRUNC (A1) (A1 คือเซลล์ที่คุณต้องการแยกค่าทศนิยม) ลงในแถบสูตรแล้วกด เข้าสู่ สำคัญ. เลือกเซลล์ผลลัพธ์แรกต่อไปและลากที่จับเติมลงเพื่อให้ได้ผลลัพธ์ทั้งหมด คุณสามารถดูว่าค่าทศนิยมถูกดึงออกมาพร้อมกับเครื่องหมายดังภาพด้านล่างที่แสดง

แยกค่าทศนิยมด้วย VBA ใน Excel

มี VBA ที่สามารถแยกค่าทศนิยมจำนวนมากด้วยเครื่องหมายจากสตริงเท่านั้น

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

2. ในหน้าต่างป็อปอัพคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางรหัส VBA ต่อไปนี้ลงในโมดูล

VBA: แยกค่าทศนิยมเท่านั้น

Sub GetNumber()
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select range:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select single cell:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            KK = xSRgArea(K).Row - xSRg.Row
            If IsNumeric(xRgVal) Then
                xDRg.Offset(KK) = xRgVal - VBA.Fix(xRgVal)
            End If
        Next
    Next
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นก Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกช่วงที่คุณต้องการแยกค่าทศนิยมเท่านั้นจากนั้นคลิก OK ปุ่ม. ดูภาพหน้าจอ:

4. แล้วอีกอย่าง Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นคุณต้องเลือกเซลล์สำหรับค้นหาค่าทศนิยมที่แยกออกมา ดูภาพหน้าจอ:

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

แยกค่าทศนิยมได้อย่างง่ายดายด้วย Kutools for Excel

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

1. เลือกช่วงที่มีทศนิยมที่คุณต้องการแยกจากนั้นคลิก Kutools > ข้อความ > แยกข้อความ. ดูภาพหน้าจอ:

2 ใน แยกข้อความ กล่องโต้ตอบพิมพ์ .* ลงในกล่องข้อความจากนั้นคลิกไฟล์ เพิ่ม ปุ่ม. สุดท้ายคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

3. ในอีกป๊อปอัพ แยกข้อความ กล่องโต้ตอบเลือกเซลล์ว่างสำหรับค้นหาผลลัพธ์จากนั้นคลิกที่ไฟล์ OK ปุ่ม

จากนั้นค่าทศนิยมทั้งหมดในช่วงที่เลือกจะถูกดึงออกทันที ดูภาพหน้าจอ:

บทความญาติ:

• แยกเวลาหรือชั่วโมงใน Excel เท่านั้น