جورج اغلب مجبور است با داده های ارائه شده توسط افراد دیگر کار کند. در کار با این داده ها، ممکن است لازم باشد نامی را تبدیل کند، مثلاً جو بلاگ، به طوری که نام خانوادگی اول باشد، مانند بلاگ، جو. جورج می داند که می تواند از یک فرمول برای انجام معکوس کردن نام استفاده کند، اما باید این کار را در همان سلولی که نام در آن قرار دارد انجام دهد. او تعجب می کند که آیا یک فرمان داخلی وجود دارد که این کار را انجام دهد.
نه، دستور داخلی برای انجام آن وجود ندارد. با این حال، می توانید یک ماکرو ایجاد کنید که تعویض را برای شما انجام دهد. سپس این ماکرو را می توان به یک کلید میانبر اختصاص داد یا در نوار ابزار قرار داد تا بتوان به راحتی به آن دسترسی داشت. در اینجا یک ماکرو ساده وجود دارد که سوئیچینگ را انجام می دهد:
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
برای استفاده از ماکرو، کافی است محدوده سلول هایی را که می خواهید تحت تأثیر قرار دهید انتخاب کنید و سپس آن را اجرا کنید. ماکرو متن موجود در سلول را به کلمات جداگانه جدا می کند (که با فاصله از هم جدا شده اند) و سپس دوباره نام را ایجاد می کند. نام های دو کلمه ای (مانند جو بلاگز) را به خوبی مدیریت می کند، اما نام های طولانی تر (مانند جوزف اندرو بلاگز) را نیز به همین راحتی مدیریت می کند.
