Làm thế nào để trích xuất giá trị thập phân từ chuỗi trong Excel?

Hướng dẫn này sẽ cho bạn biết cách chỉ trích xuất giá trị thập phân từ một chuỗi trong Excel.

Trích xuất giá trị thập phân bằng công thức trong Excel
Trích xuất giá trị thập phân bằng VBA trong Excel
Dễ dàng trích xuất giá trị thập phân với Kutools cho Excel

Trích xuất giá trị thập phân bằng công thức trong Excel

Có hai công thức có thể giúp bạn trích xuất giá trị thập phân từ một chuỗi, hãy chọn một trong số chúng khi bạn cần.

Công thức không phân biệt dấu giá trị:

Chọn một ô và nhập công thức này = ABS (A1-TRUNC (A1)) (A1 là ô bạn muốn trích xuất giá trị thập phân) vào Thanh công thức, rồi nhấn đăng ký hạng mục thi Chìa khóa. Tiếp tục chọn ô kết quả đầu tiên, kéo chốt điền xuống để nhận tất cả kết quả. Bạn có thể thấy các giá trị thập phân chỉ được trích xuất mà không có dấu như ảnh chụp màn hình bên dưới.

Công thức phản ánh dấu giá trị:

Chọn một ô và nhập công thức này = A1-TRUNC (A1) (A1 là ô bạn muốn trích xuất giá trị thập phân) vào Thanh công thức, rồi nhấn đăng ký hạng mục thi Chìa khóa. Tiếp tục chọn ô kết quả đầu tiên và kéo ô điều khiển điền xuống để nhận tất cả kết quả. Bạn có thể thấy các giá trị thập phân được trích xuất bằng dấu như ảnh chụp màn hình bên dưới.

Trích xuất giá trị thập phân bằng VBA trong Excel

Có một VBA có thể trích xuất hàng loạt các giá trị thập phân với dấu chỉ từ chuỗi.

1. nhấn Alt + F11 để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong cửa sổ bật lên, hãy nhấp vào Chèn > Mô-đun, sau đó dán mã VBA sau vào mô-đun.

VBA: Chỉ trích xuất các giá trị thập phân

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. Nhấn nút F5 phím để chạy mã. Sau đó a Kutools cho Excel hộp thoại bật lên, vui lòng chọn phạm vi bạn chỉ muốn trích xuất các giá trị thập phân và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

4. Sau đó khác Kutools cho Excel hộp thoại bật lên, bạn cần chọn một ô để định vị các giá trị thập phân được trích xuất. Xem ảnh chụp màn hình:

Bạn chỉ có thể thấy các giá trị thập phân của các số được chỉ định được trích xuất và đặt trên một phạm vi nhất định như hình minh họa bên dưới.

Dễ dàng trích xuất giá trị thập phân với Kutools cho Excel

Nếu bạn không thích công thức và các phương thức VBA, ở đây tôi giới thiệu cho bạn một công cụ hữu ích - Kutools cho Excel. Với nó Trích xuất văn bản tiện ích, bạn có thể dễ dàng trích xuất tất cả giá trị thập phân từ một phạm vi trong Excel.

1. Chọn phạm vi có số thập phân bạn muốn trích xuất, sau đó nhấp vào Kutools > bản văn > Trích xuất văn bản. Xem ảnh chụp màn hình:

2. bên trong Trích xuất văn bản hộp thoại, loại .* vào hộp Văn bản, rồi bấm vào Thêm cái nút. Cuối cùng nhấp vào OK cái nút. Xem ảnh chụp màn hình:

3. Trong một cửa sổ bật lên khác Trích xuất văn bản hộp thoại, chọn một ô trống để định vị kết quả, sau đó bấm vào OK .

Sau đó, tất cả các giá trị thập phân trong phạm vi đã chọn sẽ được trích xuất ngay lập tức. Xem ảnh chụp màn hình:

Các bài báo tương đối:

• Trích xuất thời gian hoặc giờ chỉ trong Excel