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 Rhesi Lluosog neu Golofnau'n Gyflym Yn Nhaflenni Google
- Yr erthygl hon, byddaf yn cyflwyno ffordd hawdd o fewnosod rhesi neu golofnau gwag lluosog mewn taflen google.
- 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.
Yr Offer Cynhyrchedd Swyddfa Gorau
Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, ac Yn Cynyddu Eich Cynhyrchiant 80%
- 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...
- 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!
