Skip to main content

Conas as a chéile bán a chur isteach i ndiaidh téacs ar leith in Excel?

Más mian leat sraitheanna bána a chur isteach i ndiaidh téacs ar leith mar a leanas an pictiúr a thaispeántar, conas déileáil leis go tapa agus go héasca gan iad a chur isteach de láimh ceann ar cheann?

Cuir isteach sraitheanna bána i ndiaidh téacs ar leith le cód VBA


Cuir isteach sraitheanna bána i ndiaidh téacs ar leith le cód VBA

Féadfaidh tú an cód VBA thíos a chur i bhfeidhm chun sraitheanna bána a chur isteach i ndiaidh an téacs shonraigh atá uait, déan mar seo é le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: Cuir isteach sraitheanna bána i ndiaidh an téacs shonraigh

Sub Insertrowbelow()
'updateby Extendoffice
    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("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

nótaí: Sa chód thuas, is féidir leat luach an téacs a athrú “Ag dul chun cinn”Maidir le haon luachanna eile a theastaigh uait ón script Má tá InStr (1, xRng.Cells (i, 1) .Value, "Ar siúl")> 0 Ansin.

3. Ansin, brúigh F5 eochair chun an cód seo a rith, sa bhosca dialóige popped out, roghnaigh sonraí an cholúin tá an téacs sonrach a theastaíonn uait a úsáid, féach an scáileán:

4. Agus ansin, cliceáil OK cnaipe, agus na sraitheanna bán curtha isteach tar éis an téacs áirithe a shonraigh tú, féach an scáileán:


Ailt sraitheanna níos coibhneasta a chur isteach:

  • Cóipeáil agus Cuir Isteach Il-Amanna nó Dúblaigh The Row X Times
  • I do chuid oibre laethúla, an ndearna tú iarracht riamh as a chéile nó as a chéile a chóipeáil agus ansin cúpla uair a chur isteach faoin tsraith sonraí reatha i mbileog oibre? Mar shampla, tá raon cealla agam, anois, ba mhaith liom gach ró a chóipeáil agus iad a ghreamú 3 huaire go dtí an chéad tsraith eile mar a thaispeántar an pictiúr a leanas. Conas a d’fhéadfá déileáil leis an bpost seo in Excel?
  • Cuir Sraitheanna Bána isteach nuair a athraíonn luach in Excel
  • Má cheaptar go bhfuil raon sonraí agat, agus anois ba mhaith leat sraitheanna bána a chur isteach idir na sonraí nuair a athraíonn luach, ionas gur féidir leat na luachanna seicheamhacha céanna a scaradh i gcolún amháin agus na scáileáin scáileáin a leanas a thaispeántar. San Airteagal seo, labhróidh mé faoi roinnt cleasanna chun an fhadhb seo a réiteach.
  • Cuir isteach Blank Row Os cionn Téacs Sonrach In Excel
  • Nuair a bhíonn tú ag obair ar bhileog oibre, an ndearna tú iarracht riamh sraith bán a chur isteach os cionn téacs ar leith i gcolún? Mar shampla, tá roinnt ainmneacha i gcolún A, anois, ba mhaith liom sraitheanna bána a chur isteach os cionn na gcealla ina bhfuil an t-ainm “Mike” mar an scáileán ar chlé a thaispeántar, b’fhéidir, níl aon bhealach díreach ann chun an tasc seo a réiteach in Excel . An t-alt seo, labhróidh mé faoi roinnt cleasanna maithe chun déileáil leis an bpost seo in Excel.

  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...
cluaisín kte 201905
  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations