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!
