Reggie có một ô chứa ba từ trở lên. (Số lượng từ có thể khác nhau.) Anh ta cần một công thức cho phép anh ta trích xuất từ ​​đầu tiên của ô hoặc từ cuối cùng của ô. Ví dụ: nếu ô chứa cụm từ “Reggie đã ở đây vào năm 2016”, thì anh ta cần một công thức để trích xuất “Reggie” và một công thức để trích xuất “2016”.

Bạn có thể trích xuất cả hai từ bằng công thức. Trích xuất từ ​​đầu tiên là tương đối đơn giản. Tất cả những gì bạn cần làm là tìm vị trí của khoảng trắng đầu tiên trong cụm từ, sau đó trích xuất bất cứ thứ gì ở bên trái của nó. Nếu giả định rằng cụm từ nằm trong A1, người ta có thể sử dụng công thức:

=LEFT(A1,FIND(" ",A1)-1)

Để trích xuất từ ​​cuối cùng, bạn sẽ cần một công thức hơi khác:

=TRIM(RIGHT(SUBSTITUTE(TRIM(A1)," ",REPT(" ",255)),255))

Công thức này thay đổi khoảng trắng thành chuỗi 255 ô trống. Sau đó, nó tìm 255 ký tự cuối cùng và cắt các ký tự sang trái, để lại từ cuối cùng.

Nếu muốn, bạn cũng có thể tạo các hàm do người dùng xác định để lấy các từ bạn muốn. Lấy từ đầu tiên thật dễ dàng:

Function FirstWord(c As String)

Dim arr

arr = Split(Trim(c), " ")

FirstWord = arr(LBound(arr))

End Function

Hàm sử dụng hàm Split để tách bất kỳ thứ gì có trong ô được chỉ định, sử dụng tham số thứ hai (“”) làm dấu phân cách. Mỗi phần tử trong mảng (arr) sau đó chứa một phần của chuỗi ban đầu. Trong trường hợp này, những gì được trả về là phần tử đầu tiên (được chỉ định bởi LBound) của mảng — từ đầu tiên.

Vì các từ của cụm từ đang được đặt trong một mảng, bạn có thể chỉ cần sử dụng một biến thể nhỏ trên hàm để trả về từ cuối cùng:

Function LastWord(c As String)

Dim arr

arr = Split(Trim(c), " ")

LastWord = arr(UBound(arr))

End Function

Lưu ý rằng về cơ bản, thay đổi thực sự duy nhất trong chức năng là việc sử dụng UBound thay vì LBound. Hàm UBound chỉ định phần tử cuối cùng của mảng. Bạn có thể sử dụng cả hai hàm này trong trang tính theo cách sau:

=FirstWord(A1)

=LastWord(A1)

Nếu muốn, bạn có thể bỏ qua bằng cách sử dụng hàm Split và thay vào đó, sử dụng một số hàm liên quan đến chuỗi khác:

Function GetFirst(c As String)

GetFirst = Left(c, InStr(c, " ") - 1)

End Function
Function GetLast(c As String)

GetFirst = Mid(c, InstrRev(c, " ") + 1)

End Function

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11985) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: