George thường xuyên phải làm việc với dữ liệu do người khác cung cấp. Khi làm việc với dữ liệu này, anh ta có thể cần phải chuyển đổi một cái tên, chẳng hạn như Joe Bloggs, để họ đứng trước, như trong Bloggs, Joe. George hiểu rằng anh ta có thể sử dụng một công thức để thực hiện việc đảo ngược tên, nhưng anh ta cần phải làm điều đó trong cùng ô chứa tên đó. Anh ta tự hỏi liệu có một lệnh tích hợp sẽ thực hiện nhiệm vụ này hay không.

Không, không có lệnh tích hợp để thực hiện việc đó. Tuy nhiên, bạn có thể tạo một macro sẽ thực hiện việc chuyển đổi cho bạn. Sau đó, macro này có thể được gán cho một phím tắt hoặc đặt trên thanh công cụ để có thể dễ dàng truy cập. Đây là một macro đơn giản sẽ thực hiện chuyển đổi:

Sub ReverseNames()

Dim c As Range     Dim n As Variant     Dim s As String     Dim j As Integer

For Each c In Selection         n = Split(c, " ")

s = n(UBound(n)) & ","

For j = LBound(n) To UBound(n) - 1             s = s & " " & n(j)

Next j         c.Value = Trim(s)

Next c End Sub

Để sử dụng macro, chỉ cần chọn phạm vi ô bạn muốn ảnh hưởng và sau đó chạy nó. Macro tách văn bản trong ô thành các từ riêng lẻ (được phân tách bằng dấu cách) và sau đó xây dựng lại tên. Nó sẽ xử lý các tên có hai từ (chẳng hạn như Joe Bloggs), nhưng nó cũng sẽ xử lý các tên dài hơn (chẳng hạn như Joseph Andrew Bloggs) một cách dễ dàng.

_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 (11399) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. 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: