Excel VBA - Hướng dẫn trích xuất một từ hoặc văn bản từ một ô trong Excel

Trong bài viết này, chúng ta sẽ tìm hiểu cách trích xuất một từ hoặc đoạn văn bản cụ thể từ một ô trong Excel bằng cách sử dụng hàm tự tạo (UDF) trong VBA.

Bước 1: Mở Visual Basic for Applications (VBA)

1. Mở file Excel của bạn.
2. Nhấn tổ hợp phím Alt + F11 để mở cửa sổ VBA.

Bước 2: Tạo Module Mới

1. Trong cửa sổ VBA, chọn Insert > Module.
2. Sao chép và dán đoạn mã dưới đây vào cửa sổ Module:

Function ExtractWord(Text As String, Position As Integer) As String

    Dim Words() As String

    Words = Split(Text, " ")

    If Position > 0 And Position <= UBound(Words) + 1 Then

        ExtractWord = Words(Position - 1)

    Else

        ExtractWord = "Position out of range"

    End If

End Function

    

Bước 3: Sử Dụng Hàm ExtractWord

Quay lại Excel và sử dụng hàm ExtractWord để trích xuất từ hoặc văn bản cụ thể từ một ô.

• Ví dụ: =ExtractWord(A1, 2) sẽ trích xuất từ thứ hai từ ô A1.

Nếu bạn muốn trích xuất nhiều từ, chỉ cần thay đổi giá trị của tham số Position trong hàm.

Lưu Ý

Hàm này sử dụng dấu cách (" ") để phân biệt các từ trong ô. Nếu văn bản trong ô được phân cách bởi ký tự khác, bạn có thể thay đổi ký tự phân cách trong hàm Split.