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

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

doc ներդիր տողը հատուկ տեքստի վերևում 1 2 doc ներդիր տողը հատուկ տեքստի վերևում 2

Երբ աշխատում եք աշխատանքային թերթիկի վրա, երբևէ փորձե՞լ եք սյունակում տեղադրել որոշակի տեքստի վերևում գտնվող դատարկ տող: Օրինակ, 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 այս կոդն աշխատեցնելու բանալին, և դուրս կգա երկխոսության պատուհան ՝ հիշեցնելու համար, որ ընտրեք սյունակի տվյալները, որոնք պարունակում են հատուկ տեքստ, որը ցանկանում եք վերևում շարադրել: Տեսեք,

doc ներդիր տողը հատուկ տեքստի վերևում 3

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

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


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

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

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

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

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

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

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

doc ներդիր տողը հատուկ տեքստի վերևում 5

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

doc ներդիր տողը հատուկ տեքստի վերևում 6

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

doc ներդիր տողը հատուկ տեքստի վերևում 7 2 doc ներդիր տողը հատուկ տեքստի վերևում 2

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


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

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (7)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես նման խնդիր ունեմ, ինչպես վերը նշվածը: Ի՞նչ անել, եթե ես ուզում եմ ընտրել բջիջը ստորև նշված չափանիշներով: Օրինակ, կարող եք օգտագործել վերևի օրինակը: Ես ուզում եմ ընտրել «Mike» ներքևի բջիջը: կա՞ որևէ հեշտ ելք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
@SSJ երբևէ լուծում գտա՞ք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև տղերք,

Բջջի որոշակի արժեքի տակ դատարկ տողեր տեղադրելու համար կարող եք կիրառել հետևյալ կոդը.

Sub BlankLine ()
Dim Rng որպես միջակայք
Dim WorkRng որպես տիրույթ
Ս.թ. սխալի Ռեզյումե Next
xTitleId = «KutoolsforExcel»
Սահմանել WorkRng = Application.Selection
Սահմանել WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type:=8)
Սահմանել WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Դիմում. ScreenUpdating = Սուտ է
xRowIndex-ի համար = xLastRow Դեպի 1 Քայլ -1
Սահմանել Rng = WorkRng.Range («A» և xRowIndex)
Եթե ​​Rng.Value = «Mike» Ապա
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Վերջ: Եթե
հաջորդ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Խնդրում ենք փոխել «Մայք» չափանիշը ձեր սեփական բջջային արժեքով:

Հուսով եմ, որ դա կարող է օգնել ձեզ, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն! այն աշխատեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա զարմանալի է իմ ունեցած տվյալների համար: Ես մտածում էի, թե կարո՞ղ եք օգնել ինձ մեկ քայլ առաջ: Ես կարողացա բաժանել իմ տվյալները դրա հիման վրա, բայց հետո ես պետք է գունավոր կոդավորեմ իմ տվյալների խմբերը: Երբ ես բաժանում եմ իմ տվյալները, ես ունեմ տողերի փոփոխական քանակ 1-50-ից, և ես ունեմ տվյալների 36 սյունակ, ներառյալ 32 սյունակները, որոնց արժեքները պետք է համեմատեմ վերևի տողի հետ: Ես այժմ ձեռքով ընտրում եմ յուրաքանչյուր խումբ (դատարկ տողով բաժանված) և այնուհետև օգտագործում եմ ctrl+shift+| ընդգծել սյունակների տարբերությունները և ձևաչափել այդ բջիջները՝ ընդգծելու տարբերությունները:


Կա՞ որևէ մեկը, ով կարող է գրել կոդ՝ ընտրելու և ձևաչափելու այդ սյունակների տարբերությունները խմբավորումների ներսում՝ օգտագործելով դատարկ տողը որպես բաժանարար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք հնարավոր է չհայտնվի երկխոսության տուփ, որը դուրս է թռչում, որպեսզի հիշեցնեմ, որ ընտրեմ սյունակի տվյալները, որը պարունակում է հատուկ տեքստ, որը ցանկանում եմ տեղադրել վերևում գտնվող տող, եթե նշված բջիջը լցված է տվյալներով, ապա գործընթացը գործարկվում է ավտոմատ կերպով, առանց հուշումների, և տեղադրում: տող վերևում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ դա անել, որպեսզի յուրաքանչյուր ոչ դատարկ բջիջից հետո դատարկ տող դնեմ, բայց excel-ն ասում է. «Այդ հրամանը չի կարող օգտագործվել մի քանի ընտրության վրա»
Ինչու դա ինձ մոտ չի աշխատում???
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից