Sut i fewnosod rhes yn seiliedig ar werth celloedd yn Excel?
Mewnosod rhes isod yn seiliedig ar werth celloedd gyda VBA
Mewnosodwch y rhes uchod yn seiliedig ar werth celloedd gyda Kutools ar gyfer Excel
Mewnosod rhes isod yn seiliedig ar werth celloedd gyda VBA
I fewnosod rhes yn seiliedig ar werth celloedd trwy redeg VBA, gwnewch fel y nodir isod:
1. Gwasgwch Alt + F11 allweddi ar yr un pryd, ac a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn popio allan.
2. Cliciwch Mewnosod > Modiwlau, yna pastiwch islaw cod VBA i'r popping Modiwlau ffenestr.
VBA: Mewnosod rhes isod yn seiliedig ar werth celloedd.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Cliciwch F5 allwedd neu'r Run botwm, mae deialog yn popio allan, a dewiswch y golofn yn cynnwys sero. Gweler y screenshot:
4. Cliciwch OK. Yna bydd rhesi gwag yn cael eu mewnosod o dan werth sero.
Tip:
1. Os ydych chi am fewnosod rhesi yn seiliedig ar werth arall, gallwch chi newid 0 i unrhyw werth rydych chi ei eisiau yn y VBA: Os Rng.Value = "0" Yna.
2. Os ydych chi am fewnosod rhesi uwchlaw sero neu werth arall, gallwch ddefnyddio'r cod vba isod.
VBA: Mewnosod rhes uwchlaw gwerth sero:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Mewnosodwch y rhes uchod yn seiliedig ar werth celloedd gyda Kutools ar gyfer Excel
Os nad ydych chi'n gyfarwydd â VBA, gallwch geisio Kutools ar gyfer Excel's Dewiswch Gelloedd Penodol cyfleustodau, ac yna mewnosod rhesi uchod.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. | ||
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)
1. Dewiswch y rhestr rydych chi am ddarganfod y celloedd penodol ohoni, a chlicio Kutools > dewiswch > Dewiswch Gelloedd Penodol. Gweler y screenshot:
2. Yn y dialog popping, gwiriwch Rhes gyfan opsiwn, ac yna ewch i ddewis Equals o Math penodol rhestrwch, ac yna nodwch y gwerth rydych chi am ddod o hyd iddo yn y blwch testun cywir. Gweler y screenshot:
3. Cliciwch Ok, ac mae deialog yn ymddangos i'ch atgoffa nifer y rhesi a ddewiswyd, dim ond ei gau.
4. Rhowch gyrchwr ar un rhes a ddewiswyd, a chliciwch ar y dde i ddewis Mewnosod o'r ddewislen cyd-destun. Gweler y screenshot:
Nawr mae'r rhesi wedi'u mewnosod uchod yn seiliedig ar werth penodol.
Mewnosod Rhesi Uchod Yn Seiliedig ar Werth Cell
Erthyglau Perthynas:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- 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!