Note: The other languages of the website are Google-translated. Back to English

Sut i fewnosod rhes wag ar ôl testun penodol yn Excel?

Os ydych chi am fewnosod rhesi gwag ar ôl testun penodol fel y dangosir y llun isod, sut i ddelio ag ef yn gyflym ac yn hawdd heb eu mewnosod â llaw fesul un?

Mewnosod rhesi gwag ar ôl testun penodol gyda chod VBA


Mewnosod rhesi gwag ar ôl testun penodol gyda chod VBA

Gallwch gymhwyso'r cod VBA isod i fewnosod rhesi gwag ar ôl y testun penodol sydd ei angen arnoch chi, gwnewch hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Mewnosod rhesi gwag ar ôl y testun penodol

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

Nodyn: Yn y cod uchod, gallwch newid gwerth y testun “Wrth symud ymlaen”I unrhyw werthoedd eraill yr oeddech yn eu dymuno o'r sgript Os yw InStr (1, xRng.Cells (i, 1) .Value, "Wrth symud ymlaen")> 0 Yna.

3. Yna, pwyswch F5 allwedd i redeg y cod hwn, yn y blwch deialog popped out, dewiswch fod data'r golofn yn cynnwys y testun penodol rydych chi am ei ddefnyddio, gweler y screenshot:

4. Ac yna, cliciwch OK botwm, ac mae'r rhesi gwag wedi'u mewnosod ar ôl y testun penodol a nodwyd gennych, gweler y screenshot:


Eitemau rhesi mewnosod mwy cymharol:

  • Copïo A Mewnosod Rownd Amseroedd Lluosog Neu Dyblygu The Row X Times
  • Yn eich gwaith beunyddiol, a ydych erioed wedi ceisio copïo rhes neu bob rhes ac yna mewnosod sawl gwaith o dan y rhes ddata gyfredol mewn taflen waith? Er enghraifft, mae gen i ystod o gelloedd, nawr, rydw i eisiau copïo pob rhes a'u pastio 3 gwaith i'r rhes nesaf fel y dangosir y screenshot canlynol. Sut allech chi ddelio â'r swydd hon yn Excel?
  • Mewnosod Rhesi Gwag Pan fydd Gwerth yn Newid Yn Excel
  • Gan dybio bod gennych chi ystod o ddata, ac nawr rydych chi am fewnosod rhesi gwag rhwng y data pan fydd gwerth yn newid, fel y gallwch chi wahanu'r un gwerthoedd dilyniannol mewn un golofn â'r sgrinluniau canlynol a ddangosir. Yn yr erthygl hon, byddaf yn siarad am rai triciau i chi ddatrys y broblem hon.
  • Mewnosod Blank Row Uchod Testun Penodol Yn Excel
  • Pan fyddwch chi'n gweithio ar daflen waith, a ydych chi erioed wedi ceisio mewnosod rhes wag uwchben testun penodol mewn colofn? Er enghraifft, mae rhai enwau yng ngholofn A, nawr, rwyf am fewnosod rhesi gwag uwchben y celloedd sy'n cynnwys yr enw “Mike” fel y dangosir y screenshot chwith, efallai, nid oes unrhyw ffordd uniongyrchol ichi ddatrys y dasg hon yn Excel . Yr erthygl hon, byddaf yn siarad am rai triciau da ar gyfer delio â'r swydd hon yn Excel.


  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn mor ddefnyddiol! Ond sut mae ychwanegu rhesi newydd ar ôl sawl testun gwahanol. Er enghraifft, rwyf am ychwanegu rhes ar ôl SB2 a BB2, a yw hyn yn bosibl? neu a oes angen i mi ei redeg ddwywaith gyda dau destun gwahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch ddefnyddio'r ffwythiant textjoin trwy ychwanegu'r un gair ar ddiwedd pob llinell ac yna dileu'r gair hwnnw gyda ctrl+f
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir