Ինչպե՞ս Excel- ում հատուկ տեքստի վերևում տեղադրել դատարկ տող:

Երբ աշխատում եք աշխատանքային թերթիկի վրա, երբևէ փորձե՞լ եք սյունակում տեղադրել որոշակի տեքստի վերևում գտնվող դատարկ տող: Օրինակ, A սյունակում կան մի քանի անուններ, հիմա ես ուզում եմ դատարկ շարքեր տեղադրել այն բջիջների վերևում, որոնք պարունակում են «Mike» անունը, քանի որ ցույց է տրված ձախ սքրինշոթը, միգուցե, Excel- ում այս խնդիրը լուծելու ուղի չկա: , Այս հոդվածում ես կխոսեմ Excel- ում այս գործով զբաղվելու լավ հնարքների մասին:

Տեղադրեք դատարկ տողը հատուկ տեքստի վերևում `VBA կոդով

Տեղադրեք դատարկ տող հատուկ տեքստի վերևում Kutools- ի համար Excel- ի համար

Տեղադրեք դատարկ տողը հատուկ տեքստի վերևում `VBA կոդով

Հատուկ տեքստի վերևում դատարկ շարքը մեկ առ մեկ մտցնելը շատ ժամանակ է կորցնում, այստեղ ես կստեղծեմ VBA կոդ, որպեսզի միանգամից տեղադրեք դատարկ տողը հատուկ բջջային արժեքի վերևում:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, ապա տեղադրեք հետևյալ մակրոը Մոդուլներ Պատուհանը:

VBA կոդ. Արագ տեղադրեք դատարկ շարքը հատուկ տեքստի վերևում

Sub test1()
'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, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և դուրս կգա երկխոսության պատուհան ՝ հիշեցնելու համար, որ ընտրեք սյունակի տվյալները, որոնք պարունակում են հատուկ տեքստ, որը ցանկանում եք վերևում շարադրել: Տեսեք,

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, դատարկ տողերը տեղադրվել են հատուկ «Mike» տեքստի վերևում:

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել տեքստի արժեքը «Միկրոֆոն”Ցանկացած այլ արժեքների, որոնք դուք ցանկանում եք սցենարից Եթե ​​InStr (1, xRng.Cells (i, 1). Արժեք, «Մայք»)> 0 Ապա.

Տեղադրեք դատարկ տող հատուկ տեքստի վերևում Kutools- ի համար Excel- ի համար

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Ընտրեք հատուկ բջիջներ առանձնահատկությունը, նախ կարող եք ընտրել նշված բջջային արժեքները, այնուհետև կիրառել Excel- ի Տեղադրեք թերթի տողերը միանգամից դատարկ տողերը տեղադրելու համար:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1, Ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել:

2. Այնուհետեւ կտտացրեք Կուտոլս > ընտրել > Ընտրեք հատուկ բջիջներ, տես նկարի նկարը.

3, Մեջ Ընտրեք հատուկ բջիջներ երկխոսության տուփ, ընտրեք Բջիջ տակ Ընտրության տեսակը, ապա նշեք այն չափանիշները, որոնք ձեզ հարկավոր են Հատուկ տեսակ բաժինը, այս դեպքում, ես կընտրեմ հավասար - ից Հատուկ տեսակև մուտքագրեք այն անունը, որը ես ուզում եմ ընտրել, տե՛ս սքրինշոթը.

4. Այնուհետեւ կտտացրեք Ok կոճակը, բոլոր բջիջները, որոնց արժեքը Mike է, ընտրվում են միանգամից, տես նկարի նկարը.

5. Հատուկ տեքստային բջիջներն ընտրելուց հետո սեղմեք Գլխավոր > Տեղադրել > Տեղադրեք թերթի շարքերը, իսկ դատարկ տողերը կտեղադրվեն ընտրված տեքստի վերևում, տե՛ս սքրինշոթերը.

 Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

Դեմո. Տեղադրեք դատարկ տողը հատուկ տեքստի վերևում Kutools- ի համար Excel- ի համար

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...