1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvordan sette inn tom rad over en bestemt tekst i Excel?

To sette inn tom rad over en bestemt tekst manuelt én etter én vil kaste bort mye tid, her, jeg vil skape en VBA-kode for deg å sette inn den tomme raden over spesifikke celleverdien på en gang .
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim følgende makro i modulen Window
VBA-kode. Sett tom rad over en bestemt tekst raskt
Sub test1 () 'updateby Extendoffice 20151030 Dim i As Long Dim xLast As Long Dim xRng As Range Dim xTxt As String On Error Resume Next xTxt = Application.ActiveWindow.RangeSelection.Address Set xRng = Application.InputBox ("velg kolonnen med bestemt tekst:", "Kutools for Excel", xTxt,,,,, 8) Hvis xRng Er Nothing Then Exit Sub Hvis (xRng.Columns.Count > 1) Deretter MsgBox "det valgte området må være en kolonne", "Kutools for Excel" Exit Sub End If xLast = xRng.Rows.Count For i = xLast Å 1 trinn -1 Hvis InStr (1, xRng.Cells (i, 1) .Value, "Mike") > 0 Then Rows (xRng.Cells (i, 1) .Row) .Insert skift: = xlDown End If NextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en dialogboks vil komme ut for å minne deg data kolonnen som inneholder bestemt tekst du vil sette inn rad over velger, se skjermbilde:
4. Og klikk deretter på OK-knappen, har de tomme radene blitt satt inn over en bestemt tekst "Mike"
. Merk: I koden ovenfor, kan du endre teksten value "Mike" til andre verdier som du ønsket fra manus Hvis instr (1, xRng.Cells (i, 1) .Value, "Mike") > 0 Then.

Sett tom rad over en bestemt tekst med Kutools for Excel
Hvis du har Kutools for Excel, med sine velge bestemte celler har, kan du velge de angitte celleverdier først, og deretter bruke Insert ark Rader nytten av Excel til å sette inn de tomme rader på en gang
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå!)
1. Velg dataområdet som du vil bruke.
2. Klikk deretter Kutools > Velg > Velg spesifikke celler, se skjermbilde:
tre. I Velg spesifikke celler dialogboksen velger Cell under Selection type, og angi deretter kriteriene som du trenger under det aktuelle type delen, i dette tilfellet, vil jeg velge Er lik fra Specific type, og skriv inn navnet som jeg ønsker å velger, se skjermbilde:
4. Klikk deretter på OK-knappen, alle cellene som verdi Mike er valgt på en gang, se skjermbilde:
5. Når du har valgt de spesifikke tekstceller, vennligst klikk Home > Sett > Sett Sheet Rader, og de tomme rader settes inn over den markerte teksten, se skjerm:
gratis nedlasting Kutools for Excel nå!