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

Ինչպե՞ս ջնջել Excel- ում բջջի բոլոր դատարկ տողերը կամ միայն առաջին տողը:

Դուք կարող եք ստանալ աշխատանքային գրքույկ, որում կան բազմաթիվ տողեր, որոնք խառնվում են բջիջների դատարկ կետերի հետ: Ինչպե՞ս ջնջել այս դատարկ տողերը բջիջներում: Իսկ ինչ վերաբերում է միայն առաջին տողը ջնջելուն: Այս հոդվածը կօգնի ձեզ քայլ առ քայլ զբաղվել դրանով:

BAնջեք բոլոր դատարկ տողերը VBA կոդով բջիջներում
VBA կոդով բջիջներում ջնջեք միայն առաջին տողը


BAնջեք բոլոր դատարկ տողերը VBA կոդով բջիջներում

Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, բջիջների բոլոր դատարկ տողերը ջնջելու համար կարող եք գործարկել հետևյալ VBA կոդը՝ այն կատարելու համար:

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

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Մոդուլներ պատուհան.

VBA կոդ. Deleteնջել բոլոր դատարկ տողերը բջիջներում

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. Սեղմեք F5 կոդը գործարկելու բանալին: Այնուհետև ընտրեք այն բջիջները, որոնցում կջնջեք դատարկ տողերը Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ: Եվ վերջապես կտտացրեք այն OK կոճակը:

Այնուհետև կարող եք տեսնել, որ բոլոր դատարկ տողերը ջնջված են նշված բջիջներից, ինչպես ցույց է տրված ստորև նշված սքրինշոթը: Տեքստերը դեռ գտնվում են տարբեր տողերով։


VBA կոդով բջիջներում ջնջեք միայն առաջին տողը

Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, A2 և A3 բջիջների առաջին տողը ջնջելու համար կարող է օգնել հետևյալ VBA կոդը:

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Մոդուլներ պատուհան.

VBA կոդ. Բջիջներում ջնջել միայն առաջին տողը

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության վանդակում, խնդրում ենք ընտրել այն բջիջները, որոնք անհրաժեշտ են ջնջելու համար միայն առաջին տողը, այնուհետև սեղմեք կոճակը OK կոճակը:

Դրանից հետո դուք կարող եք տեսնել, որ բոլոր առաջին տողերը ջնջված են նշված բջիջներից, ինչպես ցույց է տրված նկարում:


Առնչվող հոդված:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
սա հիանալի է աշխատում: Ինչպե՞ս կարող եմ կարգավորել կոդը, որպեսզի հեռացնեմ միայն տողերը՝ չսկսած թվային նիշերից:

Շնորհակալություն և լավագույնը,
վալետ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Jack- ը,
Կներեք, դեռ չեմ կարող օգնել ձեզ այդ հարցում: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում եմ, գիտե՞ք ինչպես հարմարեցնել սա, որպեսզի առաջին տողի փոխարեն հանվի վերջին տողը: TIA
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Jeg forstår desværre ikke et kvæk af ovenstående. Գտնում է ikke en nem og ligetil måde at fjerne tomme linier i Exell? Helst uden koder og andet mystisk!

Անկեղծորեն Ձեր
Լենե
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Եթե ​​դուք չեք ցանկանում բնօրինակ տեքստերը պահել տարբեր տողերով բջիջներում, կարող եք կիրառել հետևյալ մեթոդները՝ այն իրականացնելու համար:
1. Օգտագործեք «Գտնել և փոխարինել» գործառույթը:
Սեղմեք Ctrl + H ստեղները: Բացվող «Գտնել և փոխարինել» երկխոսության վանդակում կտտացրեք «Գտնել ինչ» տուփը ակտիվացնելու համար: Թվային ստեղնաշարի վրա 010 մուտքագրելիս սեղմած պահեք Alt ստեղնը: Փոխարինել վանդակը դատարկ պահեք, սեղմեք Փոխարինել բոլորը կոճակը: Բայց բոլոր տեքստերը կենտրոնացած են նույն գծի վրա։
2. Օգնական սյունակում օգտագործեք հետևյալ բանաձևը:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
որտեղ A1-ը այն բջիջն է, որը ցանկանում եք մշակել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա իմ առաջին VBA-ն է, ես միայն հասել եմ քո առաջին քայլին և այն լուծել է իմ խնդիրը, մինչ այժմ: Ես տպել եմ ձեր հրահանգները հետագա հղումների համար: Առայժմ ես փաթաթված եմ: Հիասքանչ հրահանգ նույնպես, շնորհակալություն ձեր որակյալ հմտությունների և դրանք մանրամասնելու համար:
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա աշխատում է, այն հեռացրեց իմ բոլոր տողերը, բայց միակ խնդիրն այն է, որ այդքան ժամանակ է պահանջվում մեկ բջիջի համար աշխատելու համար, և ես ունեմ մեծ տվյալներ ինձ հետ դա անելու համար, և կարծում եմ, որ դրա համար չափազանց շատ ժամանակ կպահանջվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Թանվեր Խան,
Կոդն աշխատում է նորմալ արագությամբ իմ կողմից: Կարո՞ղ եք ինձ ասել, թե Excel-ի որ տարբերակն եք օգտագործում:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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