Ինչպե՞ս վերադասավորել տեքստը Excel- ում գտնվող խցում:

Ենթադրելով, որ դուք ստացել եք աղյուսակ երկար ցուցակի անուններով, որոնք ձևաչափվում են որպես «Ազգանուն անուն», և այժմ դուք պետք է վերադասավորեք բոլոր անունները «Անուն, ազգանուն»: Ինչպե՞ս հասնել դրան: Այս հոդվածը կներկայացնի երեք մեթոդ, որոնք կօգնեն ձեզ լուծել խնդիրը:

Վերադասավորեք տեքստը բջիջում բանաձևով
Վերադասավորեք տեքստը VBA կոդով բջիջում
Excel- ի համար Kutools- ի միջոցով արագ վերադասավորեք տեքստը բջիջում

Վերադասավորեք տեքստը բջիջում բանաձևով

Ստորև բերված բանաձևը կարող է օգնել Excel- ում խցիկում շրջել ազգանունը և անունը: Խնդրում եմ արեք հետևյալ կերպ.

1. Վերադասավորված տեքստը թողարկելու համար ընտրեք դատարկ բջիջ, մուտքագրեք դրա մեջ ներքևի բանաձևը և այնուհետև սեղմեք Enter ստեղնը:

= TRIM (MID (b2, SEARCH ("", b2) +1,250)) & "" & LEFT (b2, SEARCH ("", b2) -1)

Նշումբանաձևում B2- ն այն բջիջն է, որը պարունակում է այն անունը, որը դուք կկարգավորեք: Խնդրում ենք փոխել այն ՝ հիմնվելով ձեր կարիքի վրա:

2. Շարունակեք ընտրել արդյունքային բջիջը, քաշեք Լրացրեք բռնակը ներքև ՝ բոլոր անունները մատով խփելու համար, ինչպես ցույց է տրված նկարում:

Վերադասավորեք տեքստը VBA կոդով բջիջում

Բացի այդ, Excel- ում միանգամից ցուցակում բոլոր անունները թերթելու համար կարող եք դիմել ներքևում գտնվող VBA կոդով: Խնդրում եմ արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք VAB կոդը ներքևում Մոդուլի պատուհանում:

VBA կոդ. Վերադասավորեք տեքստը բջիջում

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Then a Kutools for Excel dialog box pops up, please select the name list you want to rearrange, and then click the OK button. See screenshot:

Then all “Last name First name” in selected list are flipped immediately.

---

Quickly rearrange text in a cell with Kutools for Excel

This section will introduce the Reverse Text Order utility of Kutools for Excel to help you rearrange text in a cell.

Before applying Kutools for Excel, please download and install it firstly.

1. Select the name list you will flip the “Last name First name”, then click Kutools > Text > Reverse Text Order. See screenshot:

2. In the Reverse Text dialog box, select the Space option and then click the OK button. See screenshot:

Then all names in selected list are rearranged at once.

  If you want to have a free trial (30-day) of this utility, please click to download it, and then go to apply the operation according above steps.

---

Related articles:

• How to swap or reverse day and month of date in Excel?
• How to swap or switch text around within one cell in Excel?

---

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

• Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More... Free Download... Purchase... 

---

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More... Free Download... Purchase...