Trekke Bortsett Cells

September 11  by Eliza

Det har sannsynligvis skjedd med deg før: du får data for regnearket, og en av kolonnene inkluderer navn. Det eneste problemet er, navnene er alle bunched sammen. For eksempel inneholder cellen "Allen Wyatt", men du vil heller ha det første navnet i en kolonne, og det siste navnet i nabo kolonnen til høyre. Hvordan trekke dere navnene fra hverandre?

Du kan enkelt bruke Tekst til kolonner funksjonen i Excel for å trekke dine data fra hverandre. Bare følg disse trinnene:

  1. Velg celleområdet du vil dele.
  2. Velg Tekst til kolonner fra Data-menyen. Excel starter Konverter tekst til kolonner Wizard. (Se figur 1)

    Trekke Bortsett Cells

    Figur 1. Begynnelsen av konvertere tekst til kolonner Wizard.

  3. Velg om teksten du har valgt, er fast bredde eller avgrenset. (I tilfelle av et mellomrom mellom fornavn og etternavn, vil teksten bli avgrenset.)
  4. Klikk på Neste.
  5. Spesifisere skilletegn du vil Excel å gjenkjenne. I tilfelle av å trekke fra hverandre navn, bør du forsikre deg om at du bruker mellomrom som skilletegn.
  6. Klikk på Fullfør.

Excel trekker hverandre cellene i din valgte området, skiller all tekst på skilletegn du har angitt. Excel bruker imidlertid mange kolonner er nødvendig for å holde dataene.

Hvis du ikke ønsker å spre dataene helt på tvers av kolonnene, da blir du nødt til å bruke en makro. For eksempel, hvis en celle inneholder "John Davis, Esq.", Deretter bruke Tekst til kolonner funksjonen vil resultere i at opplysningene spres inn i tre kolonner: den første inneholder "John", den andre inneholder "Davis," (med den komma), og den tredje inneholder "Esq." Hvis du heller vil ha dataene delt inn i to kolonner ("John" i ett og ". Davis, Esq" i den andre, så kan følgende makro vil være nyttig:

Sub PullApart ()
Dim FirstCol As Integer, FirstRow As Integer
Dim ROWCOUNT As Integer
Dim ThisRow As Integer
Dim j As Integer, k As Integer
Dim MyText As String

FirstCol = ActiveWindow.RangeSelection.Column
FirstRow = ActiveWindow.RangeSelection.Row
ROWCOUNT = ActiveWindow.Selection.Rows.Count

For j = 1 Til ROWCOUNT
ThisRow = FirstRow + j - 1
MyText = Cells (ThisRow, FirstCol) .Text
k = InStr (MyText, "")
Hvis k> 0 Then
Celler (ThisRow, FirstCol + 1) .Value = Mid (MyText, k + 1)
Celler (ThisRow, FirstCol) .Value = Venstre (MyText, k - 1)
End If
Neste j
End Sub

Denne makroen undersøker hver celle og forlater alt opp til første plass i den valgte cellen, og flytter alt etter plass i kolonnen til høyre. Den eneste "gottcha" med denne makroen er å sørge for at du ikke har noe i kolonnen til høyre for hva cellene du velge når du kjører den.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2967) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Trekke Bortsett Cells.